Считать знаки препинания из одного файла и записать их в другой и вывести на экран

program txt;
var
t1,t2:text;
i,n:integer;
s:string;
begin
Assign(t1, 'C:\lab\lb13\t1on.txt');
Reset(t1);
Assign(t2, 'C:\lab\lb13\t2out.txt');
Rewrite(t2);
   while not eof(t1) do
   begin
   readln(t1,s);
   if (s[i]=' ') or (s[i]='.') or (s[i]=',') or (s[i]=';') or (s[i]='!') or (s[i]='?') or (s[i]=':')
   then 
   writeln(t2,s);
   end;
   close(t1,t2);
writeln;
writeln('Знаки в тексте: ');
reset(t2);
while not eof(t2) do
begin
readln(t2,s);
writeln(s);
end;
end.

const zn:set of char=['.',',','!','?',':',';','-',' '];
var t1,t2:text; res:set of char;
    i:integer; s:string;
begin
Assign(t1,'data.txt');
Reset(t1);
Assign(t2,'result.txt');
Rewrite(t2);
while not eof(t1) do
begin
    readln(t1,s);
    for i:=1 to length(s) do
    if s[i] in zn then write(t2,s[i]:2);
end;
close(t1); close(t2);
writeln('Знаки в тексте: ');
reset(t2);
res:=[];
while not eof(t2) do
begin
    readln(t2,s);
    for i:=1 to length(s) do res:=res+[s[i]];
end;
close(t2);
for i:=1 to 255 do
if chr(i) in res then write(chr(i));
writeln;
end.