Найти все такие слова, в которых все буквы различны

{$MODE TP}
const
    separators: Set Of Char = [' ', '.', ',', '!', '?', ':', ';']; //остальные по желанию самостоятельно
type
    TArray = Array[Byte] Of String;
 
function RusLowerCase(s: String): String;
var
    i: Byte;
begin
    for i := 1 to Length(s) do
    begin
        if (Ord(s[i]) = 240)
        then
            s[i] := Chr(241);
        if (Ord(s[i]) in [128..143])
        then
            s[i] := Chr(Ord(s[i]) + 32);
        if (Ord(s[i]) in [144..159])
        then
            s[i] := Chr(Ord(s[i]) + 80);
    end;
    RusLowerCase := s;
end;
 
function ClipWord(var s: String): String;
var
    Result: String;
begin
    Result := '';
    while ((Length(s) > 0) And (s[1] in separators)) do
        Delete(s, 1, 1);
    while ((Length(s) > 0) And Not(s[1] in separators)) do
    begin
        Result := Result + s[1];
        Delete(s, 1, 1);
    end;
    ClipWord := RusLowerCase(Result);
end;
 
function IsDiff(const s: String): Boolean;
var
    Result: Boolean;
    i: Byte;
    st: Set Of Char;
begin
    Result := (Length(s) <> 0);
    if (Result)
    then
    begin
        i := 1; st := [];
        while ((i <= Length(s)) And Result) do
        begin
            Result := Not (s[i] in st);
            Include(st, s[i]);
            Inc(i);
        end;
    end;
    IsDiff := Result;
end;
 
function IsUniqWord(const s: String; const ar: TArray; const n: Byte): Boolean;
var
    Result: Boolean;
    i: Byte;
begin
    Result := (n = 0);
    if Not (Result)
    then
    begin
        for i := 0 to n - 1 do
        begin
            Result := (ar[i] <> s);
            if Not (Result)
            then
                break;
        end;
    end;
    IsUniqWord := Result;
end;
 
var
    s, si: String;
    uniq: TArray;
    i, n: Byte;
begin
    n := 0;
    ReadLn(s);
    s := s + ' ';
    while (Length(s) > 0) do
    begin
        si := ClipWord(s);
        if (IsDiff(si) And IsUniqWord(si, uniq, n))
        then
        begin
            uniq[n] := si;
            Inc(n);
        end;
    end;
    Write('Result: ');
    if (n = 0)
    then
        Write('No one!')
    else
        for i := 0 to n - 1 do
            Write(uniq[i], ' ');
end.

function LowerCase(s: String): String;
var i: Integer;
begin
  for i := 1 to Length(s) do
    case s[i] of
    'A'..'Z','А'..'П': Inc(s[i],32);
    'Р'..'Я': Inc(s[i],80);
    'Ё': Inc(s[i]);
    end;
  LowerCase := s;
end;

function IsUniqWord(const s: String; const ar: TArray; const n: Integer): Boolean;
var i: Integer;
begin
  IsUniqWord:=False;
  for i:=0 to n-1 do if s=ar[i] then Exit;
  IsUniqWord:=True;
end;

  if n=0 then WriteLn('<искомых слов нет>')
  else begin
    Write(uniq[0]); for i:=1 to n-1 do Write(', ',uniq[i]); WriteLn;
  end;

function LowerCase(s: String): String;
var i: Integer;
begin
  for i := 1 to Length(s) do
    case s[i] of
    'A'..'Z',#128..#143: Inc(s[i],32);
    #144..#159: Inc(s[i],80);
    #240: Inc(s[i]);
    end;
  LowerCase := s;
end;

function LowerCase(s: String): String;
const b = 'АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ';
      m = 'абвгдеёжзийклмнопрстуфхцчшщъыьэюя';
var i: Integer;
begin
  for i := 1 to Length(s) do
    if Pos(s[i], b) > 0
      then s[i] := m[Pos(s[i], b)];
  LowerCase := s
end;

function LowerCase(s: String): String;
var i: Integer;
begin
  for i := 1 to Length(s) do
    {$IFDEF ANSI} {cp1251}
    case s[i] of
    'A'..'Z',#$C0..#$DF: Inc(s[i],32);
    #$A8: Inc(s[i],16);
    end;
    {$ELSE} {cp866}
    case s[i] of
    'A'..'Z',#$80..#$8F: Inc(s[i],32);
    #$90..#$9F: Inc(s[i],80);
    #$F0: Inc(s[i]);
    end;
    {$ENDIF}
  LowerCase := s;
end;