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

  For i:=1 to m do
  Begin
    Flag:=False;
    For k:=1 to Length(Z[i])-1 do
      If Z[i][k]=Z[i][k+1] then Flag:=True;
    If Flag then Writeln(Z[i]);
  End;

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.

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;

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//если есть 2 рядом одинаковых, меняем значение
  else j:=j+1; //иначе идем дальше
  if f then //если есть
   begin
    k:=1;//фиксируем
    writeln(z[i]);//выводим это слово
   end;
 end;