Ошибка времени выполнения: Чтение после конца потока невозможно. Задача reals = file of real

type
  reals = file of real;
  
procedure p(f,g,h : reals);
var
  n : Integer;
  s, r : Real;
begin
  while Not EOF(g) do Read(g, r);
  while Not EOF(h) do Read(h, r);
  n := 0; s := 0; while Not EOF(f) do begin Read(f, r); s := s + r; inc(n); end;
  if n = 0 then Exit;
  s := s / n; Seek(f, 0);
  while Not EOF(f) do begin Read(f, r); if r < s then Write(g, r) else Write(h, r); end;
end;
  
var
  f,g,h : reals;
  r : Real;
begin
  assign(f,'f.dat');assign(g,'g.dat');assign(h,'h.dat');
  Reset(f);Reset(g);Reset(h);
  p(f,g,h);
  Close(f);Close(g);Close(h);
  
  Write('f:'); Reset(f);while Not EOF(f) do begin Read(f, r); Write(r:8:2); end; Close(f); WriteLn;
  Write('g:'); Reset(g);while Not EOF(g) do begin Read(g, r); Write(r:8:2); end; Close(g); WriteLn;
  Write('h:'); Reset(h);while Not EOF(h) do begin Read(h, r); Write(r:8:2); end; Close(h); WriteLn;
end.

Reset(f, 'f.dat');

type
  reals = file of real;
  
procedure p(f,g,h : reals);
begin
  var avg := f.ReadElements.Average;
  
  f.Position := 0;
  foreach var el in f.ReadElements do
    (if el<avg then g else h).Write(el);
  
end;
 
begin
  // var в наше время правильно ставить после begin
  var f,g,h: reals;
  Reset(f, 'f.dat');
  Append(g, 'g.dat');
  Append(h, 'h.dat');
  
  p(f,g,h);
  
  f.Position := 0;
  f.ReadElements.Println;
  
  g.Position := 0;
  g.ReadElements.Println;
  
  h.Position := 0;
  h.ReadElements.Println;
  
  f.Close;
  g.Close;
  h.Close;
end.

uses BlockFileOfT;
 
type
  reals = BlockFileOf<real>;
  
procedure p(f,g,h : reals);
begin
  var avg := f.ToSeq.Average;
  
  foreach var el in f.ToSeq do
    (if el<avg then g else h).Write(el);
  
end;
 
begin
  var f := new reals('f.dat'); f.Reset;
  var g := new reals('g.dat'); g.Append;
  var h := new reals('h.dat'); h.Append;
  
  p(f,g,h);
  
  f.ToSeq.Println;
  g.ToSeq.Println;
  h.ToSeq.Println;
  
  f.Close;
  g.Close;
  h.Close;
end.

Procedure P(var f,g,h:reals);
Var s,m:real;
Begin
    Reset(f);
    Rewrite(g);Rewrite(h);
    s:=0;
    While not Eof(f)do
    Begin
      read(f,m);
      s:=s+m;
    End;
    s:=s/FileSize(f);
    Reset(f);
    While not Eof(f) do
    Begin
      read(f,m);
      if m<s then write(g,m)
       else write(h,m);
    End.

uses
crt;
type
  reals = file of real;
var
  f,g,h: reals;
  sre: real;
  key: char;
 
 
procedure clearfile(var ff: reals);
begin
Rewrite(ff);
close(ff);
end;
 
 
 
 
procedure p (var f1,g1,h1: reals; var sr: real);
 var
   a,a1: real;
   i:integer;
 begin
 a1:=0;
 i:=0;
  reset(f1);
while not eof(f1) do
  begin
  read(f1,a);
  inc(i);
  a1:=a1+a;
  end;
  sr:=a1/i;
  close(f1);
 
reset(f1);
reset(g1);
reset(h1);
while not eof(f1) do
begin
read(f1,a);
if a < sr then
   begin
   Seek(g1,FileSize(g1)); // Cтановимся в конец файла.
   Write(g1,a); // Записываем запись в файл }
   end
else
   begin
   Seek(h1,FileSize(h1));
   write(h1,a);
   end;
end;
 
close(f1);
close(g1);
close(h1);
end;
 
 
procedure vvodfile(var ff: reals; s: string);
var
  a: real;
begin
Rewrite(ff);
writeln('Введите числа в файл ',s,':');
repeat
  Read(a);
  write(ff,a);
until readkey = #27;
close(ff);
 
end;
 
procedure vyvodfile (var ff: reals; s: string);
var
  a:real;
begin
writeln();
writeln('Вывод содержимого файла ',s,' na ekran:');
writeln();
reset(ff);
while not eof(ff) do
  begin
  read(ff,a);
  write(a:0:2,'  ');
  end;
  close(ff);
  writeln();
end;
 
begin
 assign(f,'datF.dat');
 assign(g,'datG.dat');
 assign(h,'datH.dat');
  Writeln('Выберите режим работы программы.');
  Writeln('F1 - Ввод чисел в файл "datF.dat"');
  Writeln('F2 - Очистка файлов "datG.dat" и "datH.dat"');
  Writeln('F4 - Обработка содержимого ');
  Writeln('     файлов "datF.dat",,"datH.dat"');
  Writeln('F5 - Вывод содержимого "datF.dat","datG.dat","datH.dat"');
  Writeln('     без обработки.');
  repeat
  if keypressed then
    begin
     key:=readkey;
  case key of
  #59: begin
         vvodfile(f, 'datF.dat');
         vyvodfile (f,'datF.dat')
        end;
  #60: begin
         clearfile(g);
         clearfile(h);
         vyvodfile (g,'datG.dat');
         vyvodfile (h,'datH.dat');
        end;
 
  #62: begin
 
        p(f,g,h,sre);
        vyvodfile (f,'datF.dat');
        writeln('Среднее арифметическое всех чисел "datF.dat ": ',sre:0:2);
        vyvodfile (g,'datG.dat');
        vyvodfile (h,'datH.dat');
       end;
   #63: begin
        writeln();
        vyvodfile (f,'datF.dat');
        vyvodfile (g,'datG.dat');
        vyvodfile (h,'datH.dat');
       end;
      end;
  end;
 
 
  until key = #27;
 
end.

type Reals = file of Real;
 
procedure p(var f, g, h: Reals);
var s, t: Real;
begin
  Seek(f,0); s:=0;
  while not EoF(f) do begin
    Read(f,t); s:=s+t;
  end;
  s:=s/FileSize(f); Seek(f,0); Seek(g,FileSize(g)); Seek(h,FileSize(h));
  while not EoF(f) do begin
    Read(f,t); if t<s then Write(g,t) else Write(h,t);
  end;
end;
 
procedure w(var f: Reals; const p: String);
var t: Real;
begin
  Seek(f,0); WriteLn(p);
  while not EoF(f) do begin
    Read(f,t); Write(' ',t);
  end; WriteLn;
end;
 
var
  f, g, h: Reals;
  r: Real;
begin
  Assign(f,'f.dat'); Reset(f);
  Assign(g,'g.dat'); Reset(g);
  Assign(h,'h.dat'); Reset(h);
  p(f,g,h); w(f,'F:'); w(g,'G:'); w(h,'H:');
  Close(f); Close(g); Close(h);
end.