Текстовый файл. Подведение итогов вступительных экзаменов в Космическую Академию

 const
  n = 4;
type
  student = record
    N: byte;
    prizv: string;
    matan: real;
    prog: real;
    Os: real;
    alg: real;
  end;
var
  i: integer;
  tabl: array[1..n] of student; 
  otv: integer;
  f:text;
 
procedure lin(m: integer);
var i: integer;
begin
  for i := 1 to m do write('-'); writeln;
end;
 
begin
  assign(f, 'd:\abitura.txt');
 
  Write('Perezapisat fail ? (1 - tak, 0 - ni):');
  ReadLn(otv);
  if otv = 1 then
  begin
    rewrite(f);
    writeln('VVedi dani stydentiv');
    for i := 1 to n do
    begin
      tabl[i].N := i;
      readln(tabl[i].Prizv, tabl[i].matan, tabl[i].prog, tabl[i].OS, tabl[i].alg);
      write(f, tabl[i]);
    end;
    Close(f);
  end;
 
  {прочитать из файла в массив}
  reset(f);
  for i := 1 to n do
    Read(f, tabl[i]);
  Close(f);
 
  Lin(69);
  writeln('|   | Surname  | Matematuchnuy | Programyvannya | OS | Algebra | cer|');
  writeln('|   |          |    analis     |                |    |  i geom.|    |');
  Lin(69);
  for i := 1 to n do
  begin
    write('|', tabl[i].N: 2, ' |', tabl[i].Prizv: 10, '|');
    write(tabl[i].matan: 15, '|', tabl[i].prog: 16, '|', tabl[i].OS: 4, '|', tabl[i].alg: 9, '|',
     ((tabl[i].matan + tabl[i].prog + tabl[i].OS + tabl[i].alg) / n): 0: 2, '|');
    writeln;
    Lin(69);
  end;
  writeln;
  writeln('vidcortov');
  Lin(69);
  for i := 1 to n do
  begin
    if {не понимаю как составить условие}
    begin
      write('|', tabl[i].N: 2, ' |', tabl[i].Prizv: 10, '|');
      write(tabl[i].matan: 15, '|', tabl[i].prog: 16, '|', tabl[i].OS: 4, '|', tabl[i].alg: 9, '|', ((tabl[i].matan + tabl[i].
      prog + tabl[i].OS + tabl[i].alg)): 0: 2, '|');
      writeln;
      Lin(69);
    end;
  end;
  readln
end.