Вывести фамилии учеников , у которых средняя оценка выше средней оценки по классу .

Type
  zap=record
    f:string[15];
    g:string[4];
    b1,b2,b3:2..5;
    srb:real
  end;
Var
  stud:array[1..15] of zap;
  i:integer;
  s1,s2,s3,srb1,srb2,srb3:real;
begin
  s1:=0;
  s2:=0;
  s3:=0;
  for i:=1 to 15 do
    begin
      writeln('Enter name');readln(stud[i].f);
      writeln('Enter Year of entry');readln(stud[i].g);
      writeln('Enter marks for Exams');readln(stud[i].b1,stud[i].b2,stud[i].b3);
      s1:=s1+stud[i].b1;
      s2:=s2+stud[i].b2;
      s3:=s3+stud[i].b3;
      stud[i].srb:=(stud[i].b1+stud[i].b2+stud[i].b3)/3
    end;
  writeln('':5,'Name','':5,'Year of entry','':3,'Exam 1','':3,'Exam 2','':3,'Exam 3','':4,'GPA');
  for i:=1 to 15 do writeln(stud[i].f:12,stud[i].g:11,stud[i].b1:10,stud[i].b2:9,stud[i].b3:9,stud[i].srb:11:2);
  srb1:=s1/15;
  srb2:=s2/15;
  srb3:=s3/15;
  writeln('The average score on Exam 1:',srb1:3:2);
  writeln('The average score on Exam 2:',srb2:3:2);
  writeln('The average score on Exam 3:',srb3:3:2);
  writeln('Students with marks above the average score:');
  for i:=1 to 15 do
    if (stud[i].b1>srb1) and (stud[i].b2>srb2) and (stud[i].b3>srb3) then writeln(stud[i].f);
  readln
end.

Type ymnuy=record
     oc:array[1..12]of [0..12];
     name:string;
     srym:real
     end;
Var ymnuyarr:array[1..kil]of ymnuy;
  i:integer;
  s1,s2,s3,srb1,srb2,srb3:real;
begin
  s1:=0;
  s2:=0;
  s3:=0;
  for i:=1 to kil do
  with ymnuyarr do
    begin
      writeln('ââåäèòå èìÿ ó÷åíèêà');readln(name);
      writeln('ââåäèòå îöåíêè');readln(oc);
      s1:=s1+stud[i].b1;
      s2:=s2+stud[i].b2;
      s3:=s3+stud[i].b3;
      stud[i].srb:=(stud[i].b1+stud[i].b2+stud[i].b3)/3
    end;
  srb1:=s1/20;
  srb2:=s2/20;
  srb3:=s3/20;
  for i:=1 to 20 do
    if (stud[i].b1>srb1) and (stud[i].b2>srb2) and (stud[i].b3>srb3) then writeln(ymnuy);
  readln
end.

const kil=3;
      n=2;
Type ymnuy=record
     oc:array[1..n]of byte;
     name:string;
     srb:real
     end;
Var ymnuyarr:array[1..kil]of ymnuy;
  i,j:integer;
  o_srb:real;
begin
  for i:=1 to kil do
  with ymnuyarr[i] do
    begin
      writeln('введите имя ученика');readln(name);
      writeln('введите оценки');
      srb:=0;
      for j:=1 to n do
      begin
       readln(oc[j]);
       srb:=srb+ymnuyarr[i].oc[j];
       o_srb:=o_srb+ymnuyarr[i].oc[j];
      end;
      srb:=srb/n;
    end;
  o_srb:=o_srb/(kil*n);
  writeln(o_srb);
  writeln;
  for i:=1 to kil do
  with ymnuyarr[i] do
   begin
     if o_srb<srb then begin writeln(name); writeln(srb:5:2); end;
   end;
  readln
end.