программа на тему "записи"

[bagration12]

Условие: База данных студентов содержит ФИО и средние баллы за 5 сессий. Написать программу, осуществляющую вычисление среднего балла каждого студента за все обучение и распечатывающую записи о студентах по трем категориям. Первая категория - средний балл за все обучение >= 4.6
Вторая >= 3.6 , но меньше 4.6.Третья - все остальные. Базу данных задать самостоятельно (20 записей).
-----------------------------------------------------
мои потуги:

Код Pascal

program zapisi;
type zap=record
fam:string[15];
name:string[10];
ball:array[1..5] of integer;
end;

var
inp,out:text;
k,i:integer;
z:zap;
begin
assign(inp,'H:\03-107\MART\lab_3.txt');
reset(inp);
assign(out,'H:\03-107\MART\lab_3.txt');
rewrite (out);
writeln(out,'ФИО студента ':50);
writeln(out,'Средний балл':50);
writeln(out);

repeat
read(inp,z.fam,z.name);
for i:=1 to 5 do
read (inp,z.ball[i]);
readln(inp);
for k:=1 to 5 do
if z.ball [k]>=4.6 then
begin

write(out,z.name[1],' ',z.fam);

for i:=1 to 5 do write (out,z.ball[i]:3);
writeln(out);
end;
until eof(inp);
close(inp);
close(out)

----------------------------------------------------------------
Помогите пожалуйста...