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

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;