Найти количество абитуриентов, средний балл которых выше среднего балла по институту.

Const
nn=100;
type
Abit=record
fio:string;
ball:array[1..3] of byte;
from:string;
midb:real
end;
var
t:Abit;
mAb:array[1..nn] of Abit;
i,j,n,m:integer;
midinst:real;
begin
ввод начальных данных
Write(Количество абитуриентов (до 100): ); Readln(n);
Write(Средний балл по институту: ); Readln(midinst);
m:=0;
for i:=1 to n do
begin
Writeln(Абитуриент ,i);
With mAb[i] do begin
Write(Фамилия, И.О.: ); Readln(fio);
Write(Баллы по трем предметам через пробел: );
Readln(ball[1],ball[2],ball[3]);
midb:=(ball[1]+ball[2]+ball[3])/3;
Write(Место жительства: ); Readln(from)
end;
if mAb[i].midbgt;midinst then m:=m+1;
end;
простая обменная сортировка по убыванию
for i:=1 to n-1 do
for j:=i+1 to n do
if mAb[i].midblt;mAb[j].midb then begin
t:=mAb[i];
mAb[i]:=mAb[j];
mAb[j]:=t
end;
вывод
Writeln;
Writeln(Количество поступающих со средним баллом выше среднеинститутского: ,m);
for i:=1 to n do
with mAb[i] do
Writeln(fio, ,ball[1]:2,ball[2]:2,ball[3]:2, ,from)
end.