В строке найти все слова с удвоенной буквой "н" - Turbo Pascal

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

Помогите написать программу: С клавиатуры вводится произвольная строка символов. Группы символов, разделенные пробелами и не имеющие пробелов внутри, будем называть словами. Написать программу, которая найдет все слова с удвоенной буквой нн и выведет их на экран. Длина строки не более 100 символов.

Решение задачи: «В строке найти все слова с удвоенной буквой "н"»

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

uses crt;
var s,s1:string;
    i,k:byte;
begin
clrscr;
writeln('Введите строку с разделением слов пробелами');
readln(s);
s:=s+' ';
writeln('Слова с удвоенной буквой н');
k:=0;
s1:='';
for i:=1 to length(s) do
if s[i]<>' ' then s1:=s1+s[i]
else
 begin
  if pos('нн',s1)>0 then
   begin
    k:=1;
    writeln(s1);
   end;
  s1:='';
 end;
if k=0 then write('Таких слов нет');
readln
end.

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

В строке объявляются две переменные типа string: s и s1.
Вводится строка с разделением слов пробелами.
Строка s присваивается переменной s, а s1 присваивается пустой строке.
Переменная k инициализируется значением 0.
Выводится сообщение «Слова с удвоенной буквой н».
Запускается цикл for, который проходит по каждому символу в строке s.
Внутри цикла проверяется, является ли текущий символ не пробелом.
Если символ не является пробелом, то он добавляется в строку s1.
Если в строке s1 найдена последовательность из двух символов 'нн', то переменная k инициализируется значением 1, выводится строка s1 и цикл прерывается.
После завершения цикла, если переменная k не была инициализирована, выводится сообщение «Таких слов нет».
Программа завершается после ввода следующей строки.