Файл из записей

program zad_file1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
const
  n=5;
  m=6;
type
  zap=record
         numb:array [1..n] of integer;
         f:string[20];
         i,o:string[10];
         summ:array [1..n] of real;
  end;
  tfile=file of zap;
procedure sozd(var f:tfile);
var
  b:zap;
  i:integer;
  a:array [1..n] of string;
begin
  rewrite(f);
  for i:=1 to m do
    begin
      readln(b.f);
      readln(b.i);
      readln(b.o);
      a[i]:=b.f;
    end;
procedure srZarp(f:tfile);
var
  i,k:integer;
  sr:array [1..m] of real;
  f:tfile;
begin
  while not eof(f) do
  read(f,b);
  for i:=1 to n do
    begin
      sr[1]:=0;
      max:=sr[1];
      for i:=2 to m do
        begin
          sr[i]:=sr[i]+sr[i]/m;
          if sr[i]>max then
            begin
              max:=sr[i];
              writeln(b.numb[i]);
            end;
        end;
    end;
end;
var
  wages:tfile;
  i,k:integer;
  sr:real;
begin
  sozd(f);
  sr_zar_max(sr,f);
  writeln('')
  readln;
end.