Записать в файл последовательного доступа N действительных чисел

uses crt;
var f,g:file of real;
    a,b,s:real;
    n,i:integer;
begin
clrscr;
randomize;
assign(f,'fileF');
rewrite(f);
assign(g,'fileG');
rewrite(g);
write('Сколько чисел записать в файл n=');
readln(n);
for i:=1 to n do
 begin
  a:=10*random;{для проверки можно a:=i;}
  write(f,a);
 end;
reset(f);
writeln('Содержание исходного файла:');
s:=0;{сумма a[k]}
for i:=1 to filesize(f) do
 begin
  seek(f,i-1);{индексы в файле с 0, поэтому i-1}
  read(f,a);
  write(a:0:2,' ');
  s:=s+a;{сумма}
  b:=s/i;{делим на i}
  write(g,b);
 end;
close(f);
writeln;
writeln('Содержание нового файла:');
reset(g);
while not eof(g) do
 begin
  read(g,a);
  write(a:0:2,' ');
 end;
close(g);
readln
end.

uses crt;
var f,g:file of real;
    a,b,s:real;
    n,i,k:integer;
begin
clrscr;
randomize;
assign(f,'fileF');
rewrite(f);
assign(g,'fileG');
rewrite(g);
write('Сколько чисел записать в файл n=');
readln(n);
for i:=1 to n do
 begin
  a:=10*random;{для проверки можно a:=i;}
  write(f,a);
 end;
reset(f);
writeln('Содержание исходного файла:');
while not eof(f) do
 begin
  read(f,a);
  write(a:0:2,' ');
 end;
writeln;
seek(f,0);
for i:=0 to filesize(f)-1 do
 begin
  s:=0; {сумма a[k]}
  for k:=0 to i do
   begin
    seek(f,k);
    read(f,a);
    s:=s+a;{сумма}
    b:=s/(i+1);{делим на i+1 поскольку индексы в файле с 0}
    write(g,b);
   end;
 end;
close(f);
writeln('Содержание нового файла:');
reset(g);
while not eof(g) do
 begin
  read(g,a);
  write(a:0:2,' ');
 end;
close(g);
readln
end.