Вышла незадача в программе [Pascal]

Question

Вывести все слова из предложении в которых не повторяются буквы. 
Как бы ничего сложного, но все же. 
Мой код: 
program Laba6; 
Uses Crt; 
Var s:array[1..20] of string; v,k,i,j,li:integer; tt,ss:string; pp,p:byte; ok:boolean; 
Begin 
ClrScr; 
 writeln('Предложение: '); 
 readln(ss); 
 for i:=1 to length(ss) do 
 begin 
 pp:=pos(' ',ss); 
 s:=copy(ss,1,pp-1); 
 delete(ss,1,pp); 
 if pp=0 then 
 begin 
 s:=ss; 
 delete(ss,1,length(ss)); 
 end; 
 li:=i; 
 if pp=0 then 
 break; 
 end; 
for i := 1 to li do begin {Посоветовали вот такой способ проверки слов (Все что ниже) } 
 ok := true; 
 for j := 1 to length(s) do begin 
 for k := j + 1 to length(s) do begin 
 if s[j] = s[k] then begin 
 ok := false; 
 break; 
 end; 
 end; 
 if not ok then break; 
 end; 
 if ok then 
 WriteLn(s); 
 readln; 
end; 
End.

Помогите исправить!!!

Сергей Троскин · Accepted Answer

var t:string; i,j,k:integer; p:set of char; b:boolean; 
begin 
writeln('Text? '); readln(t); k:=0; t:=t+' '; 
for i:=1 to length(t) do 
 if t[ i]>'@' then inc(k) 
 else 
 if k<> 0 then 
 begin 
 b:=true; p:=[]; 
 for j:=i-k to i-1 do 
 begin if t[j]in p then b:=false; include(p,t[j]) end; 
 if b then begin for j:=i-k to i-1 do write(t[j]); writeln end; 
 k:=0 
 end; 
readln 
end.