Написать процедуру записи сведении из символьного файла f в g?

type
 file_char = file of char;
 
var 
  f, g: file_char; 
  
procedure printFile(var z: file_char); //процедура вывода
var 
  h: char;
begin
  seek(z,0);  {указатель в начало файла}
   while not EOF(z) do  {пока не конец файла делай}
     begin
      read(z,h); 
      write(h);
     end;
end;
 
procedure zapis_f_g(var f, g: file_char); //процедура перезаписи с файла f в файл g
var 
  h: char;
begin
  seek(f,0);
  {с использованием seek переписать???}
end;
  
begin
  assign(f,'File_f.txt');   {берём символьный файл}
    reset(f);  {открываем его для чтения}
  assign(g,'File_g.txt');  {второй файл}
    rewrite(g);  {создаём второй файл для записи}
  
  writeln('Файл F:');
  printFile(f); //вывод на экран файла f
  
  zapis_f_g(f, g); //перезапись значения с файла f в файл g
  
  writeln('Файл G:');
  printFile(g); //вывод на экран файла g
  
  close(f);  {закрываем файл f}
  close(g);  {закрываем файл g}
end;