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

[sp.caster]

Подскажите как решать плз!
1)Написать программу создающую на диске файл следующей структуры:
Фамилия 1 (например Сидоров)
оценки по математике
оценки по русскому
оценки по информатике

Фамилия 2
оценки по математике
оценки по русскому
оценки по информатике

при запускание она должна спросить сколько фамилий.

2) Для созданного файла ( 1 задача) написать программу расчитывающую средний бал каждого ученика и средний бал по каждому предмету.
Любой помощи и подсказкам буду рад

[bekas]

Среда программирования и ОС?

[sp.caster]

паскаль

[ewert]

type  onerec =  record   name: string;   mat,rus,inf: integer;    end;
var  a: onerec;
     f: file of onerec;
     i,num: integer;
. . . . . . . . . . . . . .
write(....);   readln(num);

for i:=1 to num do begin
  write(....);   readln(a.name);
  write(....);   readln(a.rus);
  write(....);   readln(a.mat);
  write(....);   readln(a.inf);
  write(f, a);
end;

и т.д. Вторая -- аналогично.

[sp.caster]

спасибо