Пусть дан текст, состоящий из слов. Под словом понимается последовательность литер, не содержащая пробелов и знаков препинания. Вывести все слова, состоящие из неповторяющихся символов — Pascal(Паскаль)

uses crt;
var t:text; s,e:string; c:char; zp:set of char; i,j,zz:integer;
begin
writeln('введите путь к текстовому файлу');
readln(e);
assign(t,e);
reset(t);
zp:=[',','.',' ','(',')',':',';','-',#10,#13];
writeln('слова, состоящие из неповторяющихся символов: ');
  repeat
   s:='';
   read(t,c);
   while not (c in zp) do
         begin
          s:=s+c; read(t,c);
         end;
  if s <>'' then
   begin
             for i:=1 to length(s) do
                 for j:=1 to length(s) do
                     if s[i]=s[j] then zz:=zz+1;
             if zz=length(s) then write(s,'   ');
             zz:=0;
   end;
  if eoln(t) then readln(t);
 until eof(t);
close(t);
end.