Помогите решить задачку по записям Опции

[dem74]

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

Заранее всем благодарен

[Lapp]

1. Тебе понадобится тип:

type
  tStudent=record
    Name: string;
    Mat,Rus,Phy: integer;
  end;

2. Сделай две программы либо выбор в одной программе через меню: создание файла и обработка готового файла.

3. Опиши файловую переменную и переменную для данных, вот так:

var
  F: file of tStudent;
  Student: tStudent

4. Для создания файла открой его оператором ReWrite(F) и запрашивай в цикле имя и оценки и записывай в файл:

Write(F, Student);

5. Для обработки открой файл оператором ReSet(F) и читай его в цикле, накапливая оценки и считая количество записей, а потом посчитай среднее:

s:=0;
n:=0;
while not EoF(F) do begin
  Read(F,Student);
  with Student do s:=s+Mat+Rus+Phy;
  Inc(n)
end;
a:=s/n/3;

Вот, примерно так..