Дан массив из слов Z(m). Найти все слова, в которых есть две подряд идущие одинаковые буквы - Turbo Pascal

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

Уважаемые программисты Я уверена,что вы мне поможете)Пожалуйста! Задание: Дан массив из слов Z(m). Найти все слова, в которых есть две подряд идущие одинаковые буквы.

Решение задачи: «Дан массив из слов Z(m). Найти все слова, в которых есть две подряд идущие одинаковые буквы»

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

uses crt;
const nmax=20;
var z:array[1..nmax] of string[20];
    n,i,j,k:integer;
    f:boolean;
begin
clrscr;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Введите ',n,' слов, в том числе со сдвоенными буквами');
for i:=1 to n do
 begin
  write('слово ',i,': ');
  readln(z[i]);
 end;
writeln;
k:=0;
writeln('Слова со сдвоенными буквами');
for i:=1 to n do
 begin
  f:=false;
  j:=1;
  while(j<length(z[i]))and not f do
  if z[i][j]=z[i][j+1] then f:=true
  else j:=j+1;
  if f then
   begin
    k:=1;
    writeln(z[i]);
   end;
 end;
if k=0 then write('Нет слов со сдвоенными буквами');
readln
end.

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

Этот код написан на Turbo Pascal и выполняет следующую задачу:

Запрашивает у пользователя размер массива z и количество слов, которые он хочет ввести.
Создает массив z с указанным размером и заполняет его строками, которые пользователь вводит.
Затем код проверяет каждое слово в массиве z на наличие двух подряд идущих одинаковых букв.
Если в слове есть такие буквы, то код выделяет его и выводит на экран.
В конце кода выводится сообщение, указывающее, есть ли в массиве z слова со сдвоенными буквами. Пример: Размер массива до 20 n=5 Введите 5 слов, в том числе со сдвоенными буквами слово 1: abcd слово 2: efghi слово 3: jklm слово 4: nopq слово 5: rstu Слова со сдвоенными буквами: abcd, efghi Нет слов со сдвоенными буквами