Вывести на экран все слова текста, в которых все буквы разные; если таких слов нет, выдать соответствующее сообщение

var
 a,b,c:string;
begin
  write('enter text:');
  readln(a);
  b:='';
  while length(a)>0 do
    begin
      writeln(a);
      while a[1]=' ' do delete(a,1,1);
      if pos(' ',a)>0 then c:=copy(a,1,pos(' ',a))
        else c:=a;
      while(length(c)>1)and(pos(c[1],copy(c,2,length(c)))=0) do delete(c,1,1);
      if length(c)=1 then
        if pos(' ',a)>0 then
          b:=b+' '+copy(a,1,pos(' ',a))
          else
          b:=b+' '+a;
      if pos(' ',a)>0 then
        delete(a,1,pos(' ',a))
        else
        a:='';
    end;
  write('result ');
  if length(b)>0 then writeln(b)
    else writeln('not found');
end.

var
  s,w : string;
  i   : byte;
  eq_let, not_w : boolean;
begin
    write('input string: '); readln(s);
    s:=s+' '; not_w:=false;
    while pos(' ',s)<>0 do begin
       w:=copy(s,1,pos(' ',s));
       for i:=1 to length(w)-1 do begin
          eq_let:=(pos(w[i],copy(w,i+1,length(w)-i+1))<>0);
          if eq_let then break;
       end;
       if not eq_let then begin
          writeln(w);
          not_w:=true;
       end;
       delete(s,1,pos(' ',s));
    end;
    if not not_w then writeln('no words found.');
    readln;
end.