Вывести список студентов, год рождения которых больше среднего года рождения группы и месяц рождения меньше 8

  Reset(f); yy:=0; n:=0;
  while not SeekEoF(f) do begin
    ReadLn(s); ReadLn(d,m,y); yy:=yy+y; Inc(n);
  end;
  Reset(f);
  while not SeekEoF(f) do begin
    ReadLn(s); ReadLn(d,m,y);
    if (m<8) and (y>yy/n) then WriteLn(s);
  end;

uses crt;
type stud=record
          fam:string[15];
          d,m,g:integer;
          end;
var f:file of stud;
    z:stud;
    sr:real;
    n:integer;
begin
clrscr;
assign(f,'stud');
rewrite(f);
writeln('Введите данные о студентах, окончание ввода фамилия-пустая строка');
sr:=0;
n:=0;
repeat
with z do
 begin
  write('Фамилия: ');readln(fam);
  writeln('Дата рождения день, месяц,год');
  readln(d,m,g);
  if fam<>'' then
   begin
    sr:=sr+g;
    n:=n+1;
    write(f,z);
   end;
 end;
until z.fam='';
clrscr;
writeln('Полный список студентов');
writeln('------------------------------------');
writeln('|    Фамилия     |День|Месяц|  Год |');
writeln('------------------------------------');
reset(f);
while not eof(f) do
 begin
  read(f,z);
  with z do
  writeln('|',fam:15,'|',d:4,'|',m:5,'|',g:5,' |');
 end;
writeln('----------------------------------');
sr:=sr/n;
writeln('Средний год рождения=',round(sr));
n:=0;
writeln('Студенты чей год рождения больше среднего и месяц рождения меньше 8');
writeln('------------------------------------');
writeln('|    Фамилия     |День|Месяц|  Год |');
writeln('------------------------------------');
reset(f);
while not eof(f) do
 begin
  read(f,z);
  with z do
  if(g>sr)and(m<8) then
   begin
    n:=1;
    writeln('|',fam:15,'|',d:4,'|',m:5,'|',g:5,' |');
   end;
 end;
writeln('----------------------------------');
if n=0 then write('Таких студентов нет');
readln
end.