Переписать в файл G все компоненты файла F, меняя местами соседние элементы

var f,g:file of real;
    n,i:integer;
    a,b:real;
begin
randomize;
assign(f,'fileF');
rewrite(f);
assign(g,'fileG');
rewrite(g);
repeat
write('Сколько чисел записать в файл F от 2 до 100 n=');
readln(n);
until n in [2..100];
for i:=1 to n do
 begin
  a:=9*random;
  write(f,a);
 end;
writeln('Содержание исходного файла:');
reset(f);
while not eof(f) do
 begin
  read(f,a);
  write(a:5:2);
 end;
writeln;
i:=1;
while i<filesize(f) do
 begin
  seek(f,i);
  read(f,a);
  seek(f,i-1);
  read(f,b);
  seek(g,i);
  write(g,b);
  seek(g,i-1);
  write(g,a);
  i:=i+2
 end;
if odd(filesize(f))then{если нечетное число компонет}
 begin
  seek(f,filesize(f)-1);{допишем последнюю}
  read(f,a);
  seek(g,filesize(g));
  write(g,a);
 end;
close(f);
writeln('Содержание полученного файла:');
reset(g);
while not eof(g) do
 begin
  read(g,a);
  write(a:5:2);
 end;
close(g);
end.

i:=1;
while i<filesize(f) do {важно - именно МЕНЬШЕ, а не меньше-равно!}
 begin
   Read(f, a1);
   Read(f, a2);
   Write(g,a2);
   Write(g,a1);
   inc(i,2);
 end;
 if odd(FileSize(f)) then begin {если файл имеет нечётное число элементов,
                                         то последний элемент просто скопируем}
   Read(f, a1);
   Write(g,a1);
 end;