Проблема с задачей

вот текст задачи:
Создать 3 линейных массива из 7 элементов, каждый элемент – запись об очередном объекта.
Каждый массив должен быть заполнен информацией из файла ZZZ.txt (данные в этом файле уже есть).
Получилось 3 одинаковых массива. Вывести на экран значения одного из массивов: 1 строка – информация из 1 запи-си. Должна получиться на экране табличка с ровными столбцами. Если есть проблемы с выводом текстовых переменных, то можно померять порядок вывода: вначале числа, потом слова.
Для первого массива определить среднее значение числовых характеристик и заменить каждую числовую характери-стику на ей соответствующую среднюю.
Для второго массива отсортировать его по значениям последней текстовой характеристики. Способ сортировки можно выбрать любой. Если текстовое поле единственно, но сортировать по нему.
Для третьего массива заменить у всех элементов с
 четными номерами первую характеристику на 1 букву или цифру (одинаковые для всех)
 нечетными номерами последнюю характеристику на 2 буквы или цифры (одинаковые для всех).
Каждый массив вывести на экран. Перед каждым выводом массива пользователь должен знать, что выводится.

Пример:
Дан объект СТУДЕНТ с характеристиками: ФАМИЛИЯ, ИМЯ, ГОД рождения, БАЛЛЫ ЕГЭ, ВЕС.
Нужно придумать и записать в файл ZZZ.txt данные о 7 студентах. Например, в файле про одного студента должно быть написано 5 строк:
Иванов
Петр
2003
89
72.4

В первом массиве следует найти средние значения для ГОДа, БАЛЛов ЕГЭ и ВЕСа. И заменить во всех записях ГОД на «средний год», БАЛЛ ЕГЭ на «средний балл» и ВЕС на «средний вес». Стоит помнить, что ГОД и БАЛЛ – это целые числа, а ВЕС – действительные.
Во втором массиве сортировка массива должна пройти по значениям поля ИМЯ – оно последнее текстовое.
В третьем массиве студенты с номерами 2, 4 и 6 должны вместо своей ФАМИЛИи иметь значение, например, «а». А студенты с номерами 1, 3, 5 и 7 должны вместо своего ВЕСа иметь значение, например, 91.


я пытался сделать,но я просто не понимаю как получить из файла данные,которые мне нужны. Помогите пожалуйста! вот мой код:
program PrV1_Vradiy;
Type mass1 = record
num: integer;
time: real;
point:integer;
end;

Type mass2 = record
gorod_b: string[15];
end;

Type mass3 = record
gorod_a: string[15];
end;

var massOne: array[1..7] of mass1;
massTwo: array[1..7] of mass2;
massThree: array[1..7] of mass3;
i,j,k: integer;
f1:text;
begin
assign(f1,'ZZZ.txt');
reset(f1);
for i:=1 to 7 do
begin

end;
end.

0

Ну и с чем конкретно затруднения?
Вот получаем данные и выводим их:

0