Обработка таблиц с результатами ЕГЭ

program cyberforumege;
uses crt;
type ege = record
name:string[20];
sirname:string[20];
pointmath:integer;
pointrus:integer;
end;
const n = 2;
var a:array [1..n] of ege;
i:integer;
summath,sumrus,avgrus,avgmath:real;
begin
for i:=1 to n do
with a[i] do
begin
write ('name: ');
readln (name);
write ('sirname: ');
readln(sirname);
write ('pmath: ');
readln(pointmath);
write ('pointru: ');
readln(pointrus);
summath:=summath+pointmath;
sumrus:=sumrus+pointrus;
end;
avgmath:=summath/n;
avgrus:=sumrus/n;
for i:=1 to n do
with a[i] do
begin
if (pointmath = 100) or (pointrus = 100) then
writeln(name, ' ', sirname, ' ', ' ','Оценка по мат: ',pointmath, ' ', 'Оценка по рус',pointrus); 
if (pointmath < 30) or (pointrus <30) then 
writeln('Не справился: ',name, ' ', sirname, ' ', ' ','Оценка по мат: ',pointmath, ' ', 'Оценка по рус',pointrus); 
if ((pointrus>avgrus)and (pointrus <> 100)) or ((pointmath > avgmath) and (pointmath <> 100)) then
writeln('Выше среднего: ',name, ' ', sirname, ' ', ' ','Оценка по мат: ',pointmath, ' ', 'Оценка по рус',pointrus); 
if (pointrus =100) or (pointmath = 100) then
writeln('Сто баллов: ',name, ' ', sirname, ' ', ' ','Оценка по мат: ',pointmath, ' ', 'Оценка по рус',pointrus); 
end;
writeln ('Ср. балл по мат. ',avgmath);
writeln ('Ср. балл по рус. ',avgrus);
readkey;
end.