Дополните, предложили использовать множества, не пойму как

assign(t2, 'text2.txt'); {Ñöåïëÿåì ôàéë è ïåðåìåííóþ}
   {########################}
   reset(t1); {Îòêðûâàåì äëÿ ÷òåíèÿ ôàéë}
   j:=0;
      while not eof (t1) do {Ïîêà íå êîíåö ôàéëà}
         begin
            readln(t1, st1); {×èòàåì ñòðîêó}
            k:=Pos(' ', st1);
 
               While Pos(' ',st1)<>0 do
                  begin
                     inc(j);
                     k:=Pos(' ', st1);
                     s1:=Copy(st1, 1, k-1);
                     delete(st1, 1, k);
                     txt1[j]:=s1;
                     o:=j;
                  end;
            txt1[o+1]:=st1;
         end;
   close(t1);

uses crt;
const z=[' ','.',',','!','?','(',')','"',':',';'];
      nmax=100;
var f: text;
    s,sl: string;
    a: array [1..nmax] of string;
    i: byte;
    ind,j: integer;
    
begin
assign(f,'D:\in.txt');
reset(f);
while not (eof(f)) do
      begin
      readln(f,s);
      s:=s+' '; sl:='';
      for i:=1 to length(s) do
          if not (s[i] in z) then sl:=sl+s[i] else
             if length(sl)>0 then
                begin
                inc(ind);
                a[ind]:=sl;
                sl:='';
                end;
      end;
close(f);
for j:=1 to ind do
    writeln(a[j]);
end.