Записать в другой файл числа имеющегося файла в обратном порядке

Var
  f,g: File of Integer;
  s: String;
  i,x: Integer;
BEGIN
Writeln('Введите полное имя файла: ');
Readln(s);
Assign(f,s);
{$I-}
Reset(f);
{$I+}
If IOResult=0 Then
begin
  While not Eof(f) do
  begin
    Read(f,x);
    Write(x,' ');
  end;
  Writeln;
  Assign(g,'4.dat');
  Rewrite(g);
  For i:=Filesize(f)-1 downto 0 do
  begin
    Seek(f,i);
    Read(f,x);
    Write(g,x);
  end;
  Reset(g);
  Writeln('Fail G:');
  While not Eof(g) do
    begin
    Read(g,x);
    Write(x,' ');
  end;
  Close(f);
  Close(g);
  Writeln('Готово!');
end
Else
Writeln('Файл не найден');
Readln
END.

Var
  f,g: File of Integer;
  s: String;
  i,x: Integer;
  a: Array [1..30] of Integer;
BEGIN
Writeln('Введите полное имя файла:')
Readln(s);
Assign(f,s);
{$I-}
Reset(f);
{$I+}
If IOResult=0 Then
begin
  Writeln('Файл F:');
  While not Eof(f) do
  begin
    Read(f,x);
    Write(x,' ');
    i:=i+1;
    a[i]:=x;
  end;
  Writeln;
  Assign(g,'4.dat');
  Rewrite(g);
  For i:=30 downto 1 do
  Write(g,a[i]);
  Reset(g);
  Writeln('Файл G:');
  While not Eof(g) do
    begin
    Read(g,x);
    Write(x,' ');
  end;
  Close(f);
  Close(g);
end
Else
Writeln('Файл не найден');
Readln
END.

Var
  f,g: File of Integer;
  s: String;
  i,x: Integer;
  a: Array [1..30] of Integer;
BEGIN
Writeln('Введите полное имя файла: ')
Readln(s);
Assign(f,s);
Reset(f);
Writeln('Файл F:');
While not Eof(f) do
begin
  Read(f,x);
  Write(x,' ');
  i:=i+1;
  a[i]:=x;
end;
Writeln;
Assign(g,'4.dat');
Rewrite(g);
For i:=30 downto 1 do
Write(g,a[i]);
Reset(g);
Writeln('Файл G:');
While not Eof(g) do
  begin
  Read(g,x);
  Write(x,' ');
end;
Close(f);
Close(g);
Readln
END.

Writeln('Введите полное имя файла: ');

Reset(f);

Writeln('Файл F:');
While not Eof(f) do
begin
  Read(f,x);
  Write(x,' ');
  i:=i+1;
  a[i]:=x;
end;

Assign(g,'4.dat');
Rewrite(g);
For i:=30 downto 1 do
Write(g,a[i]);

Reset(g);
Writeln('Файл G:');
While not Eof(g) do
  begin
  Read(g,x);
  Write(x,' ');
end;