Написать программу, которая создает файл с разрешением .dat, состоящий из чисел. Считывать записи из этого файла и записывать их в обратном порядке во второй файл. После этого удалить первый файл — Pascal(Паскаль)

uses crt;
var f,g:file of integer;
    a,i:integer;
begin
clrscr;
assign(f,'filef.dat');
rewrite(f);
assign(g,'fileg.dat');
rewrite(g);
writeln('Введите в файл целые числа, окончание ввода 0:');
repeat
readln(a);
if a<>0 then write(f,a);
until a=0;
writeln('Содержание исходного файла:');
reset(f);
for i:=0 to filesize(f)-1 do
 begin
  read(f,a);
  write(a,' ');
 end;
close(f);
writeln;
reset(f);
for i:=filesize(f)-1 downto 0 do
 begin
  seek(f,i);
  read(f,a);
  write(g,a);
 end;
close(f);
writeln('Содержание измененного файла:');
reset(g);
for i:=0 to filesize(g)-1 do
 begin
  read(g,a);
  write(a,' ');
 end;
close(g);
readln
end.