[ShutTap]

так работает

Код:

   for i:=j to Length(word)-1 do begin
     flag:=true;

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

      if flag=true then
       begin
        SetLength(finword,Length(finword)+1);
        finword[length(finword)-1]:=word[i];
       end;
end;

break в самом начале был лишним,и флаг не в том месте стоял... спасибо за помощь)