работа с записями

[Андрей.12]

Дана ведомость абитуриентов, сдавших вступительные экзамены в институт. В каждой строке данной ведомости записана фамилия абитуриента и полученные им оценки по отдельным дисциплинам (например, физике, математике, литературе). Необходимо определить средний балл по институту и распечатать список абитуриентов, средний балл которых выше среднего балла по институту.

uses crt;
type students=record
familia:string;
name:string;
oz1:integer;
oz2:integer;
oz3:integer;
ball:real;
end;

var a:array[1..100] of students;
i:integer;
c,s:real;
x:array[1..10] of real;
begin
clrscr;
for i:=1 to 3 do
with a[i] do begin
write('family=');
readln(familia);;
write('name=');
readln(name);
write('oz1=');
readln(oz1);
write('oz2=');
readln(oz2);
write('oz3=');
readln(oz3);
end;
for i:=1 to 3 do
a[i].ball:=((a[i].oz1+a[i].oz2+a[i].oz3)/ 3);{средний бал}
for i:=1 to 3 do
x[i]:=a[i].ball;

s:=0;{сумма общего балла}
for i:=1 to 3 do
s:=s+x[i];
if a[i].ball >=s   then
for i:=1 to 3 do
with a[i] do begin
writeln(familia);
readln;
end;
end.

все считает, вот только с выводом проблеммы, как вывести те фамилии у которых средний бал больше общего балла