Дан файл целых чисел. Создайте файл вещественных чисел, компонентами которого будут

uses crt;
var f:file of integer;
    g:file of real;
    n,a,i,j,k:integer;
    s:real;
begin
clrscr;
randomize;
assign(f,'fileF');
rewrite(f);
assign(g,'fileG');
rewrite(g);
write('Сколько чисел записать в файл целых чисел n=');
read(n);
for i:=1 to n do
 begin
  a:=random(10);
  write(f,a);
 end;
writeln('Содержание исходного файла:');
seek(f,0);
while not eof(f) do
 begin
  read(f,a);
  write(a:4);
 end;
writeln;
seek(f,0);
n:=filesize(f) div 5;
for i:=0 to n-1 do
 begin
  s:=0;
  k:=0;
  for j:=5*i to 5*i+4 do
   begin
    seek(f,j);
    read(f,a);
    s:=s+a;
   end;
  write(g,s/5);
 end;
if j<filesize(f)-1 then
 begin
  s:=0;
  k:=0;
  for i:=j+1 to filesize(f)-1 do
   begin
    seek(f,i);
    read(f,a);
    s:=s+a;
    k:=k+1;
   end;
  write(g,s/k)
 end;
close(f);
writeln('Содержание файла средних');
seek(g,0);
while not eof(g) do
 begin
  read(g,s);
  writeln(s:5:1);
 end;
close(g);
end.