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

function CheckDiff(s: String): Boolean;
var
    i, j     : Integer;
    isDiff : Boolean;
begin
    { В начале предпологаем что в слове все символы разные}
    isDiff := true;
    { Проверка на разносьт}
    for i := 1 to Length(s) do begin
        for j := 1 to Length(s) do begin
            if s[i] = s[j] then begin
                isDiff := false;
                { Выход из цикла }
                i := Length(s);
                j := Length(s);
            end;
        end;
    end;
    ChackDiff := isDiff;
end;

uses crt;
var
t:string;
procedure print(var s:string);
var
i,j,k:integer;
st:string;
f:boolean;
begin
i:=1;
st:='';
s:=s+' ';
repeat
if s[i]<>' ' then st:=st+s[i]
else
 if st<>' ' then
             begin
             f:=true;
             for j:=1 to length(st) do
              for k:=1 to length(st) do
              if (st[j]=st[k]) and (j<>K) then f:=false;
             if f then writeln(st);
             st:='';
             end;
i:=i+1;
until i>length(s);
end;
begin
clrscr;
readln(t);
print(t);
readln;
end.

Procedure New_String(Var NewSTR:string; Str:Tstr);
Var
n,k:integer;
begin
n:=length(str[1]);
k:=length(str[2]);
if n<=k then
   begin
     NewSTR:='';
     for i:=1 to 2*N do
     if odd(i) then
          begin
            NewSTR:=NewSTR+Str[1][i div 2+1];
          end
     else begin
            NewSTR:=NewSTR+Str[2][i div 2];
          end;
     NewSTR:=NewSTR+copy(str[2],n+1,k-n);
   end
else
   begin
     NewSTR:='';
     for i:=1 to 2*k do
     if odd(i) then
          begin
            NewSTR:=NewSTR+Str[1][i div 2+1];
          end
     else begin
            NewSTR:=NewSTR+Str[2][i div 2];
          end;
     NewSTR:=NewSTR+copy(str[1],k+1,n-k);
   end;
Writeln('New String: ', NewSTR);
end;