Объясните в чем ошибка моя!

[Npwas]

Объясните ошибку в программе и как от нее избавиться можно.
Алгоритм действия проги:
1.Вод слов( по команде "/stop" завершение цикла);
2.Вывод и разбитие каждой строки на буквы;
3.А дальше должно найти слова в которых есть повторяющиеся буквы и вывести их, вот ток както чрезмерно коряво концовка работает!

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils, Ruslib in 'RusLib.pas' ;

type
 mas=array[1..20] of string;
 mas_2=array[1..20,1..20] of string;
 mas_3=array[1..20] of string;
 Var
 a:mas;
 b:mas_2;
 d:string;
 h:mas_3;
 i,j,x,z,f,p:Integer;
begin
i:=0;
x:=0;
Writeln('Введите желаемое кол-во слов.');
Writeln('Для завершения ввода нажмите "/stop"!!!');
{Ввод слов}
repeat
 begin
  i:=i+1;
  readln(a[i]);
  x:=x+1;
 end;
until (a[i]='/stop');
Writeln;
{Вывод слов}
 For i:=1 to x-1 do
  begin
   Write(a[i],'   ');
   z:=1;
   For j:=1 to Length(a) do
    begin
     b[i,j]:=Copy(a[i],z,1);
     z:=z+1;
     Write(b[i,j],'  ');
    end;
   Writeln;
  end;
  Writeln;
  {Недоделаная хня}

 f:=1;
  For i:=1 to x-1 do
   begin
     z:=1;
     For j:=1 to Length(a) do
       begin
        d:=Copy(a[i],z,1);
        For p:=1 to Length(a) do
          if d=b[j,p] then
          h[j]:=a[i]
           else;
       end;
       f:=f+1;
       z:=z+1;
   end;
   Writeln(f);
   for j:=1 to f do
   begin
   Writeln(h[j]);
   end;
Readln;
end.

[whatever]

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;//, Ruslib in 'RusLib.pas' ;

type
 mas=array[1..20] of string;
// mas_2=array[1..20,1..20] of string;
// mas_3=array[1..20] of string;
 Var
 a:mas;
// b:mas_2;
// d:string;
// h:mas_3;
 i,j,k,x,z:Integer;
// m4:mass_4;
 Vrepeat:boolean;
begin
i:=0;
x:=0;
Writeln('Введите желаемое кол-во слов.');
Writeln('Для завершения ввода нажмите "/stop"!!!');
{Ввод слов}
repeat
 begin
  i:=i+1;
  readln(a[i]);
 end;
until (a[i]='/stop');
x:=i;
Writeln;
{Вывод слов}
 For i:=1 to x-1 do
  begin
   Write(a[i],'   ');
   z:=1;
   For j:=1 to Length(a) do
    begin
     Write(Copy(a[i],z,1),'  ');
     z:=z+1;
    end;
   Writeln;

  end;
  Writeln;
  {Недоделаная хня}


  for i:=1 to x-1 do
    begin
    Vrepeat:=true;
      for j:=1 to length(A[i]) do
        for k:=j+1 to length(A[i]) do
          if (a[i][j]=a[i][k]) and (Vrepeat) then
            begin
              write(A[i],' ');
              Vrepeat:=false;
            end;
    end;

Readln;
end.

P.S. не надо создавать 10 тем, можно и в одной писать

[Npwas]

Да знаю, что можно, прост эту никто не смотрел, вот и решил создать еще, ну так уж вышло, надоело часа 3-4 ждать!!!