[angvelem]

Имеется в виду, что флаг flag не нужен в данном случае вообще.

Код:

  for i:=0 to Length(word)-1 do
  begin
    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;
 end;