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

function checkstring( s:string ): integer;var i, k, len: integer;begin  len := length(s);k := 0;for i := 1 to len dobeginif ( s[i] = 'п' ) thenif s[ i + 1 ] = 'о' thenif s[ i + 2 ] = 'л' then inc(k);end;checkstring := k;end;var str: string;rez: integer;beginwrite('Введите слово: ');readln(str);rez := checkstring(str);if rez > 0 then writeln('Буквосочетание "пол" встречается в слове в количестве: ', rez)else writeln('Буквосочетание "пол" в слове не встречается');end.