Имеется файл f, компонентами которого являются символы. Переписать в файл g все знаки препинания файла f, а в h — все остальные символы файла f — Pascal(Паскаль)

program fgh;
var
f,g,h:text;
a:string;
i:integer;
begin
assign(f,'c:\f.txt');
assign(g,'c:\g.txt');
assign(h,'c:\h.txt');
reset(f);
rewrite(g);
rewrite(h);
while not eof(f) do begin
readln(f,a);
for i:=1 to length(a) do
case a[i] of
'!',',','.','?':write(g,a[i]); {тут добавить всё что считаешь знаком препинания}
else write(h,a[i]);
end;
end;
close(f);
close(g);
close(h);
end.

uses crt;
const rz=['.',',','?',';',':','!','-'];
var f:text;
g:file of char;
s:string;
i:integer;
c:char;
begin
clrscr;
assign(f,'file1.txt');
reset(f);
assign(g,'file2.dat');
rewrite(g);
while not eof(f) do
begin
readln(f,s);
for i:=1 to length(s) do
if s[i] in rz then  write(g,s[i]);
end;
writeln('Sozdanie faila G');
reset(g);
while not eof(g) do
begin
read(g,c);
write(c,'');
end;
close(f);
close(g);
readln;
end.

Program Zadacha;
uses crt;
const
  znpr = ['.',',','!','?'];
var
 q:char;
 f,g,h: text;
 
begin
 clrscr;
 assign(f,'in.txt');
 assign(g,'zf.txt');
 assign(h,'ost.txt');
 reset(f);
 rewrite(g);
 rewrite(h);
 while not eof(f) do begin
   read(f,q);
   if q in znpr then write(g,q ) else write(h,q);
 end;
 close(f);
 close(g);
 close(h);
 readkey;
end.