Дан файл целых чисел. Создать новый файл, содержащий те же элементы, что и исходный файл, но в обратном порядке

program pr1;
var f1,f2:file of integer; n,kl:byte; ch:array[1..1000] of integer;
(*процедура создания первого файла*)
procedure InputFile;
var i:byte; ch:integer;
begin
  writeln('Kolichestvo chisel');
  readln(n);
  assign(f1,'Input1');
  rewrite(f1);
  for i:=1 to n do
  begin
    writeln('Vvedite ',i,' chislo');
    readln(ch);
    write(f1,ch);
  end;
  writeln('Zapis zakonchena');
  close(f1);
end;
(*процедура записи чисел в файл 2 из файла 1 в обратном порядке*)
procedure FileOf2;
var i,n:byte;
begin
  assign(f1,'Input1');
  reset(f1);
  assign(f2,'Input2');
  rewrite(f2);
  for i:=1 to FileSize(f1) do
  read(f1,ch[i]);
  for i:=FileSize(f1) downto 1 do
  write(f2,ch[i]);
  close(f1);
  closE(f2);
end;
(*процедура вывода содержимого двух получившихся файлов*)
procedure OutFile;
var i,n:byte; ch:integer;
begin
  assign(f1,'Input1');
  reset(f1);
  assign(f2,'Input2');
  reset(f2);
  writeln('Содержимое первого файла:');
  for i:=1 to FileSize(f1) do
  begin
    read(f1,ch);
    write(ch,', ');
  end;
  close(f1);
  writeln;
  writeln('Содержимое второго файла:');
  for i:=1 to FileSize(f2) do
  begin
    read(f2,ch);
    write(ch,', ');
  end;
  writeln;
  close(f2);
end;
begin
  writeln('1- создание файла');
  writeln('2- запись в другой файл в обратном порядке');
  readln(kl);
  case kl of
  1:InputFile;
  2:if FileExists('Input1') then FileOf2
                      else begin writeln('На диске отсутствуе файл с именем Input1. Создайте его');exit;end;
  end;
  OutFile;
end.

for filesize(f)-1 downto 0 do
 begin
  seek(f,i);
  read(f,a);
  write(g,a);
 end;
close(f);
close(g);