создать файл!

[kot i @]

Создать файл, содержащий сведения о том ,какие из пяти предлагаемых дисциплин по выбору желает слушать студент. Структура записи: фамилия студента ,номер группы, пять дисциплин, средний балл успеваемости. Выбираемая дисциплина отмечается символом- 1,иначе -пробелом. Напечатать списки студентов, желающих прослушать дисциплину Х. если число желающих превысит восемь человек, то необходимо отобрать студентов имеющих более высокий балл успеваемости.
Вот структуру как организовать ее как запись

type
student = record
surname: string;
groupnumber: integer;
d1,d2,d3,d4,d5: string;
ball: integer;
end;

...

var
students: array[1..128] of student;

из записи лучше оргинизовать массив,нужно сделать всю программу!