Delphi7 задача вычислить средний балл учеников класса если...

[Gothic3]

Вычислить средний балл учеников класс, если известны оценки каждого ученика по математике, русскому и физике. Вывести на экран список учеников, имеющих средний балл выше среднего в классе.
Вот не до завершенная задача
program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;

type
begin
sredniy_ball=record
fio:string[30];
matematika:[1..5];
russkyi:[1..5];
fizika:[1..5];
ychenik:[1..30]
sredniy_ball:[1..5];
var ychenik1:type ychenik:a,b,s,d:Byte;
begin
Writeln('Vvedite dannie'):Readln(a);
for b:=1 to 30 do
with ychenik 1[a] do begin
write('fio');Readln(fio);
write('matematika');Readln(matemati ka);
write('russkyi'); Readln(russkyi);
write('fizika');readln(fizika);
write('sredniy_ball);readln(sredniy _ball);
end;



end.
помогите завершить ?