Опишите рекурсивную функцию sum без параметров для нахождения суммы элементов файла

type 
 reals = file of real; 
 var f : reals;

uses
  Crt;
  const n=5;
type
  Reals = file of Real;
 
var
  f: Reals;   
  i: Integer; 
  x: Real;
  j: Real;
 
function sum: Real;
begin
j:=0;
sum:=0;
  if not Eof(f) then begin
    Read(f, x);
    j := j + x;
   { sum := sum;
  end;}
  sum :=sum+ j;end;
end;
 
begin
 
  Assign(f, 'C:\lab8_4');
  ReWrite(f);
  for i := 1 to n do
  begin
  clrscr;
  {write('vvedite kol-vo chisel v faile -> ');
  readln(n);}
    WriteLn('Vvedite ', i, '-e chislo, okonchanie vvoda 0');
    Read(x);
    Write(f, x);
  end;
  Close(f);
  Reset(f);
  WriteLn('Summa vseh elementov ravna ', sum:4:2);
  Close(f);
  ReadKey;
end.

function sum: Real;
var x : real;
begin
   sum:=0;
   if Eof(f) then exit;
   Read(f, x);
   sum :=x + sum;
end;

function sum: Real;
var x : real;
begin
   sum:=0;
   if Eof(f) then exit;
   Read(f, x);
   sum :=x + sum(); // Magic !!!
end;