Работа с типизированными файлами

program Project1;
 
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('Vvedite chisla v file ',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('Vyvod soderjimogo faila ',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('Vyberite rejim raboty programmy.');
  Writeln('F1 - vvod chisel v fail "datF.dat"');
  Writeln('F2 - ochistka failov "datG.dat" i "datH.dat"');
  Writeln('F4 - obrabotka informacii i vyvod soderjimogo ');
  Writeln('     failov "datF.dat",,"datH.dat"');
  Writeln('F5 - vyvod soderjimogo failov "datF.dat","datG.dat","datH.dat"');
  Writeln('     bez obrabotki.');
  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('Srednee arethmeticheskoe vseh chisel "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.