Записи: вывести на экран студенческую ведомость (ФИО, оценки за три экзамена, средний балл)

uses
  crt;
type
  info = record
    FIO: string;
    e1,e2,e3: integer;
  end;
var
  i,n: integer;
  sr: real;
  st: info;
  a: array [1..50] of info;
begin
  clrscr;
  write('Vvedite kol-vo zapisey: ');
  readln(n);
  for i:= 1 to n do
  begin
    clrscr;
    writeln('*** Zapis nomer ',i,' ***');
    write('Vvedite FIO: ');
    readln(st.FIO);
    write('Vvedite 1-uyu ocenku: ');
    readln(st.e1);
    write('Vvedite 2-uyu ocenku: ');
    readln(st.e2);
    write('Vvedite 3-uyu ocenku: ');
    readln(st.e3);
    a[i]:=st;
  end;
  clrscr;
  writeln('*** Studencheskaya vedomost ***');
  writeln;
  for i:= 1 to n do
  begin
    sr:=a[i].e1+a[i].e2+a[i].e3;
    writeln(i,' ',a[i].FIO,' ',a[i].e1,' ',a[i].e2,' ',a[i].e3,' Sredniy bal: ',sr/3:5:2);
  end;
  readkey;
end.

uses
  crt;
type
  info = record
    FIO: string;
    d: 1..31;
    m: 1..12;
    y: 1990..1996;
    p: string[1];
  end;
var
  i,n,m: integer;
  st,max: info;
  a: array [1..50] of info;
  c: char;
begin
  clrscr;
  write('Vvedite kol-vo zapisey: ');
  readln(n);
  for i:= 1 to n do
  begin
    clrscr;
    writeln('*** Zapis nomer ',i,' ***');
    write('Vvedite FIO: ');
    readln(st.FIO);
    write('Vvedite den: ');
    readln(st.d);
    write('Vvedite mesyac: ');
    readln(st.m);
    write('Vvedite god: ');
    readln(st.y);
    write('Vvedite pol (m/j): ');
    readln(st.p);
    a[i]:=st;
  end;
  clrscr;
  max:=a[1];
  for i:= 2 to n do
    if (a[i].p='m') and ((a[i].d<max.d) and (a[i].m<=max.m) and (a[i].y<=max.y)) then
      max:=a[i];
  writeln('Samiy starshiy mujchina: ',max.FIO);
  write('Vvedite bukvu: ');
  readln(c);
  for i:= 1 to n do
    if a[i].FIO[1]=c then
      writeln(a[i].FIO);
  write('Vvedite mesyac: ');
  readln(m);
  for i:= 1 to n do
    if a[i].m=m then
      writeln(a[i].FIO);
  readkey;
end.