Вывecти все слова состоящие из неповторяющихся символов

uses crt;
var s,sl,sn: string;
    e,i,j,k,kk:integer;
 
begin
write('s=');
readln(s); sn:=''; s:=s+' '; sl:='';
for i:=1 to length(s) do
    if not (s[i] in ['!',';',':','?',',','.',' ']) then sl:=sl+s[i]
       else if length(sl)>0 then
            begin
            kk:=0;
            for e:=1 to length(sl) do
                begin
                k:=0;
                for j:=1 to length(sl) do
                    if sl[e]=sl[j] then inc(k);
                if k=1 then inc(kk);
                end;
             if kk=length(sl) then sn:=sn+sl+' ';
             sl:='';
             end;
if length(sn)=0 then  writeln ('Нет слов из неповторяющихся символов') else
writeln('Cлова из неповторяющихся символов: ',sn);
end.

uses crt;
var s,sl: string;
    a: array [1..255] of string;
    i,j,e,k,kk: byte;
    
begin
write('s='); readln(s); s:=s+' ';
j:=0; k:=0;
writeln('Все различные слова');
for i:=1 to length(s) do
    if not (s[i] in ['!',';',':','?',',','.',' ']) then sl:=sl+s[i]
       else if length(sl)>0 then
            begin
            kk:=0;
            inc(j);
            a[j]:=sl;
            for e:=1 to j-1 do
                if a[e]=a[j] then inc(kk);
            if kk=0 then
               begin
               inc(k);
               write(sl,' ');
               end;
            sl:='';
            end;
writeln;
writeln('Общее количество слов ',j);
writeln('Количество различных слов ',k);
end.