if не хочет работать, объясните почему!

[Npwas]

В конце проги находю мой цикл if, вообщем прога должна выводить подконец только те слова в которых есть повторяющиеся буквы, но почемуто не работает и выводит все слова!!!

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;
 mas_4=array[1..20,1..20] of string;
 Var
 a:mas;
 b:mas_2;
 h:mas_3;
 d:mas_4;
 i,j,x,z,k,p,f: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);
     d[i,j]:=b[i,j];
     z:=z+1;
     Write(b[i,j],'  ',d[i,j],'  ');
    end;
   Writeln;
  end;
   {}
   {}
   {}
  {Цикл поиска слов с повтрояющимися буква}
   For i:=1 to x-1 do
    begin
     For j:=1 to Length(a) do
      begin
       For p:=1 to Length(a) do
          begin

         If d[i,j]=b[i,p] then
            h[i]:=a[i];

            end;
      end;
    end;
      {}
      {}
      {}
         Writeln;
         {Вывод нужных слов}
    For i:=1 to x-1 do
    Write(h[i],'  ');
Readln;
end.

[whatever]

 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);
     d[i,j]:=b[i,j];
     z:=z+1;
     Write(b[i,j],'  ',d[i,j],'  ');  //b[i,j]=d[i,j],   зачем?
    end;
   Writeln;
  end;
   {}
   {}
   {}
  {Цикл поиска слов с повтрояющимися буква}
   For i:=1 to x-1 do
    begin
     For j:=1 to Length(a) do
      begin
       For p:=1 to Length(a) do
          begin

         If d[i,j]=b[i,p] then    //как уже писал b[i,j]=d[i,j], => выведуться все слова.
            h[i]:=a[i];

            end;
      end;
    end;

А вообще, я бы сделал через запись, где одно поле само слово, а второе булево, принемающее True когда есть повторяющиеся буквы.

[Npwas]

Запись, то не плохо звучит!!! Но по программе можно использовать только те темы которые прошли:массивы, строки, множества!!! Я тут и сам свою ошибку нашел!!! Вот ток не знаю как правильно здать так чтоб длинна строки ровнялась длинне букв в слове, а потом в For и тогда работать должно, как я понял оно из-за лишних пробелов после слов, у меня то бесконечная длинна строки!!!