Совокупность записей объеденить в массив. распечатка данных

[felmor]

Составить список студентов, включающий не менее 10 человек.
Для каждого студента указать фамилию, год рождения, курс,
оценки в последнюю сессию.Информацию о каждом студенте
оформить в программе в виде записи. Совокупность записей
объеденить в массив.
Составить програаму, которая обеспечивает ввод полученой
информации и распечатку информации согласно конкртеному
варианту в виде таблицы.
"Распечатать анкетные данные студентов, успевающих на 4 и 5"


даже представления не имею как её сделать. Помогите пожалуйста.
Спасибо

[Tkirill]

uses crt;
type
zapis=record
fam:string;
god:integer;
kurs:byte;
oc:integer;
end;
var
zap:zapis;
mas:array[1..40] of zapis;
i,k:integer;
otv:char;
begin
clrscr;
write(' Вводите информацию о студентах ');
writeln;
k:=0;
repeat
k:=k+1;
writeln(' Фамилия ');
readln(zap.fam);
writeln(' год рождения ');
readln(zap.god);
writeln(' курс ');
readln(zap.kurs);
writeln(' Средний бал по оценкам ');
readln(zap.oc);
writeln;
mas[k]:=zap;
writeln(' продолжить ввод информации y/n ');
readln(otv);
until otv<>'y';
writeln;
writeln(' Успевают на 4 или 5 ');
for i:=1 to k do
if (mas[i].oc=4) or (mas[i].oc=5) then writeln(mas[i].fam,' ',mas[i].god,' года рождения ',' ',mas[i].kurs,' курса ');
readln;
end.

[Tkirill]

Cори. Смайл случайно поставился)
p.s. его писать не надо