Описать функцию s3(f), значением которой является сумма последних трех элементов файла

program _files;
 
const
 fin        = 'input.dat';
 
type
 TFR        = file of real;
 
var
 fi         : TFR;
 R          : real;
 count      : byte;
 
procedure FillInput(var f : TFR);
{процедура заполнения типизированного файла}
var
 r          : real;
 count      : byte;
begin
 count:=0;
 repeat 
  write('>: ');readln(r);
  inc(count);
  if r<>0 then write(f,r)
 until (R=0) and (count>3)
end;
 
function s3(var f : TFR):real;
{возвращает сумму последних трех элементов файла f}
var 
 x,sum      : real;
 size       : byte;
 i          : byte;
begin
 x:=0;
 sum:=0;
 size:=filesize(f);
 for i:=1 to 3 do
   begin
    seek(f,size-i);
    read(f,x);
    sum:=sum+x;
   end;
 S3:=Sum;
end;
 
BEGIN
 
{fill input file}
 Assign(fi,fin);rewrite(fi);
 FillInput(fi) ;close(fi);
 
{proces. & output}
 assign(fi,fin);reset(fi); 
 Write(s3(fi):0:2);close(fi);
 
END.

program Variant10_N1;
 
type fr = file of real;
 
var fi: fr;
    r: real;
 
procedure FInput(var f: fr);
{процедура заполнения типизированного файла}
 
var count: byte;
 
begin
  count:= 0; 
  repeat
    write('Введите элемент: ');readln(r);
    inc(count);
    if r <> 0 then write(f, r)
  until (r = 0) and (count > 3)
end;
 
function s3(var f: fr): real;
{возвращает сумму последних трех элементов файла f}
 
var sum: real;
    i: byte;
 
begin
  sum := 0;
  for i := 1 to 3 do
  begin
    seek(f, filesize(f) - 1);
    read(f, r);
    sum := sum + r;
  end;
  s3 := Sum;
end;
 
BEGIN
  
  {fill input file}
  assign(fi, 'input.dat');rewrite(fi);
  FInput(fi);close(fi);
  
  {proces. & output}
  assign(fi, 'input.dat');reset(fi);
  write(s3(fi));close(fi);
  
END.