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

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.