Среди всех оценок по математике найти и вывести тех учеников у кого оценка по математике выше средней

var i,j,n,z,k,x,x1,err:integer;
d,q:real;
f:text;
s,s1,s2,s3:string;
 
procedure cozd;
var i:integer;
begin
rewrite (f);
writeln ('введи кол-во учеников');
readln (n);
for i:=1 to n do
begin
writeln ('введи фамилию');
readln (s);
writeln (f,s);
writeln ('введи имя');
readln (s1);
writeln (f,s1);
writeln ('оценка физика');
readln (s2);
writeln (f,s2);
writeln ('оценка математика');
readln (s3);
writeln (f,s3); end;
close (f); end;
 
   procedure prosm;
   begin
   reset (f);
   while not eof (f) do
   begin
   readln (f,s);
   readln (f,s1);
   readln (f,s2);
   readln (f,s3);
   writeln (s,' ',s1,' ',s2,' ',s3);
   end; close (f); end;
   
   procedure obr;
   var i:integer;
   begin
   reset (f);
   while not eof (f) do
   begin
   readln (f,s);
   readln (f,s1);
   readln (f,s2);
   readln (f,s3);
    {для 1 ответа}
   if (s2='4') and (s3='4') then
   writeln ('ответ1: ',s,' ',s1);
   end; close (f); end;
   
   procedure obr2;
   var i:integer;
   begin
   reset (f);
   while not eof (f) do
   begin
   readln (f,s);
   readln (f,s1);
   readln (f,s2);
   readln (f,s3);
   {для 2 ответа}
   val (s3,x,err);
   x1:=x1+x;
   inc(i);
   end;
   d:=x1/i;
   while not eof (f) do
   begin
   readln (f,s);
   readln (f,s1);
   readln (f,s2);
   readln (f,s3); 
   val(s3,x,err);
   if (x>d) then write ('ответ2: ',s,' ',s3);
   end; close (f); end;
   
   procedure obr3;
   var i:integer;
   begin
   writeln ('введи число q=');
   readln (q);
   reset (f);
   while not eof (f) do
   begin
   readln (f,s);
   readln (f,s1);
   readln (f,s2);
   readln (f,s3);
   {для 3 ответа}   
   if s2<'q' then
   writeln (s,' ',s1,' ',s2);
   end; close (f); end;
   
   begin
     assign(f,'d:\textfile1.txt');
   while z<>6 do
   begin
   writeln('1-sozd');
   writeln('2-prosm');
   writeln('3-ответ1');
   writeln('4-ответ2');
   writeln('5-ответ3');
   writeln('6-vihod');
   writeln('vvedi chislo');
   readln(z);
   case z of
   1:cozd;
   2:prosm;
   3:obr;
   4:obr2;
   5:obr3;
   6:exit;
end;
end;
end.

program z;
type
    oz=record;
    nam:string;
    fnam:string;
    ozm:integer;
    ozf:integer;
end;
var sa:real; i,n,s:integer;
a:array [1..34] of oz;
begin
     writeln('Введите кол-во учеников');
     readln(n);
     for i:=1 to n do
         with a[i] do
              begin
                   writeln(i,' ученик');
                   writeln('Введите имя');
                   readln(nam);
                   writeln('Введите фамилию');
                   readln(fnam);
                   writeln('Введите оценку по математике');
                   readln(ozm);
                   writeln('Введите оценку по физике');
                   readln(ozf);
              end;
     writeln;
     writeln('Полный список учеников');
     for i:=1 to n do
         with a[i] do
              begin
                   writeln(i,' ученик');
                   writeln('Имя: ',nam);
                   writeln('Фамилия: ',fnam);
                   writeln('Оценка по математике: ',ozm);
                   writeln('Оценка по физике: ',ozf);
                   writeln;
              end;
     s:=0;
     for i:=1 to n do
         with a[i] do
              s:=s+ozm;
     sa:=s/n;
     writeln('Средняя оценка по математике среди всех учеников: ',sa:4:2);
     writeln;
     writeln('Список учеников, у которых оценка по математике выше средней');
     writeln;
     for i:=1 to n do
         with a[i] do
              if ozm>sa
                 then
                     begin
                          writeln('Номер ученика: ',i);
                          writeln('Имя: ',nam);
                          writeln('Фамилия: ',fnam);
                          writeln('Оценка по математике: ',ozm);
                          writeln('Оценка по физике: ',ozf);
                     end;
end.