Написать алгоритм и программу которая определяет сколько раз в данном слове встречается буквосочитание "пол"

program zz1;

var s:string; / / задаем переменную строкового типа

i, k:integer; / / задаем переменные целого типа

begin

write (' введите строку ');

read (s); / / вводим с клавиатуры заданную строку

for i:=1 to length (s) - 2 do / / организуем цикл, в котором переберем все символы от первого до последнего минус два

if copy (s, i, 3) = 'пол' then k:=k + 1; / / копируем по три буквы строки и сравниваем с "пол", если нашли, то считаем

write (' в данном слове встречается буквосочетание "пол" = ', k, ' раз ');

end.