Подсчитать количество слов в строке с двумя буквами «н», стоящими подряд - Pascal ABC

Формулировка задачи:

Подсчитать количество слов в строке с двумя буквами «н», стоящими подряд. Что в ней не так? Исправьте plezze.

uses crt;
var
i, count, max : integer;
s : string;
begin
clrscr;
write('Введите строку: ');
read(s);
max := 0;
count := 0;
for i:=1 to length(s) do
begin
if (s[i] = 'н') then
begin
inc(count);
end
else
begin
if max < count then max := count;
count := 0;
end;
end;
write('Количество слов в строке с двумя буквами «н», стоящими подряд.: ',max);
end.

Решение задачи: «Подсчитать количество слов в строке с двумя буквами «н», стоящими подряд»

Листинг программы

uses crt;
Var
s,t:string;
i,k,p:integer;
Begin
 write('Введите строку: ');
  readln(s);
 t:=s;
 P:=0;
 for i:=1 to length(t) do
  Begin
   if (t[i]='н') and (t[i+1]='н') then
    Begin
     p:=p+1;
     for k:=1 to length(t) do
      if t[i]=' ' then break;
       delete(t,i,1);
    end;
  end;
 write(p);
End.

Объяснение кода листинга программы

В первой строке кода используется функция readln для чтения строки из стандартного ввода.
Строка, которую прочитал пользователь, сохраняется в переменной s.
Переменная t копирует строку s, так что обе переменные теперь содержат одну и ту же строку.
Переменная P инициализируется нулем. Она будет использоваться для подсчета слов.
Затем идет цикл for, который проходит по каждому символу в строке t.
Внутри цикла проверяется условие: если текущий символ - это 'н' и следующий символ тоже 'н', то это слово.
Если это слово, то переменная P увеличивается на единицу.
Затем выполняется вложенный цикл for, который проходит по каждому символу в строке t, начиная с индекса i+1, чтобы пропустить первый символ 'н'.
Внутри вложенного цикла проверяется условие: если текущий символ - это пробел, то цикл прерывается.
Если условие не выполнено, то удаляется символ 'н' в начале строки t.
После завершения вложенного цикла, если условие не выполнено, то цикл прерывается.
В конце программы выводится значение переменной P, которое представляет количество слов в строке.