Дан символьный файл f. Записать в файл g компоненты файла f в обратном порядке — Pascal(Паскаль)

uses crt;
var f,g:file of char;
    a:char;
    i:integer;
begin
clrscr;
assign(f,'fileF');
rewrite(f);
assign(g,'fileG');
rewrite(g);
writeln('Введите в файл символы, окончание ввода 0:');
repeat
readln(a);
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);
reset(g);
writeln('Содержание нового файла:');
for i:=0 to filesize(g)-1 do
 begin
  read(g,a);
  write(a,' ');
 end;
close(g);
readln
end.