Создать два файла, первый из которых содержит элементы исходного с нечетными номерами, а второй — с четными

uses crt;
var f:file of real;
    n,i:integer;
    a:real;
begin
clrscr;
randomize;
assign(f,'fileF');
rewrite(f);
write('Сколько чисел записать в файл F n=');
readln(n);
for i:=1 to n do
 begin
  a:=10*random;
  write(f,a);
 end;
writeln('Файл записан');
readln
end.

uses crt;
var f,g,h:file of real;
    i:integer;
    a:real;
begin
clrscr;
randomize;
assign(f,'fileF');
reset(f);
assign(g,'fileG');
rewrite(g);
assign(h,'fileH');
rewrite(h);
writeln('Содержание исходного файла:');
for i:=0 to filesize(f)-1 do
 begin
  read(f,a);
  write(a:0:2,' ');
  if odd(i)then write(g,a)
  else write(h,a)
 end;
writeln;
writeln;
seek(g,0);
writeln('Содержание файла чисел с нечетными номерами:');
while not eof(g) do
 begin
  read(g,a);
  write(a:0:2,' ');
 end;
close(g);
writeln;
writeln;
seek(h,0);
writeln('Содержание файла чисел с четными номерами:');
while not eof(h) do
 begin
  read(h,a);
  write(a:0:2,' ');
 end;
close(h);
readln
end.