Составьте программу, которая выведет фамилии тех учеников класса, которые являются хорошистами

Uses Crt;
Type
mass=record
fam,ima:string[7];
mat,rus,eng:integer;
srb:real;
end;
Var
klass:array[1..25] of mass;
i,n:integer;
y,srz:real;
x:boolean;
begin clrscr;
write('введиет количество учеников : ');
readln(n);
srz:=0;
for i:=1 to n do
begin
write('введие данные ',i,'-го ученика');
writeln;
write(' фамилия : ');
readln(klass[i].fam);
write(' имя : ');
readln(klass[i].ima);
write(' математика : ');
readln(klass[i].mat);
write(' русский : ');
readln(klass[i].rus);
write(' английский : ');
readln(klass[i].eng);
klass[i].srb:=(klass[i].mat+klass[i].rus+klass[i].eng)/3;
writeln;
end;
for i:=1 to n do
srz:=srz+klass[i].mat+klass[i].rus+klass[i].eng;
srz:=srz/(n*3);
write('средний балл ',srz:5:2);
writeln;
for i:=1 to n do
begin
write(klass[i].fam,' ');
write(klass[i].ima,' ');
write('математика ',klass[i].mat,' ');
write('русский ',klass[i].rus,' ');
write('английский ',klass[i].eng,' ');
write('ср. балл ',klass[i].srb:5:2);
writeln;
end;
x:=false;
for i:=1 to n do
if klass[i].srb>3 then x:=true;
if x=true then
begin
writeln('хорошисты и отличники : ');
for i:=1 to n do
if (klass[i].mat>3) and (klass[i].rus>3) and (klass[i].eng>3) then
begin
y:=klass[i].srb-srz;
if y<0 then y:=y*(-1);
writeln(klass[i].fam,' ср. б. отличается на ',y:5:2);
y:=0;
end;
end
else writeln('хорошистов и отличников нет');
readkey;
end.