[ShutTap]

Код:

SetLength(finword,0);

   for i:=0 to Length(word)-1 do
    for k:=0 to Length(finword)-1 do
    begin
     if word[i]=finword[k] then
      break;

      SetLength(finword,Length(finword)+1);
      finword[length(finword)-1]:=word[i];
    end;

что-то не копирует.. в итоге длина нового массива = 0