Типизированные файлы PASCAL

[sto.r.m]

Доброго времени суток!
Помогите пожалуйста с задачей на PASCAL.

Создать файл с полями: название вуза, город, кол-во студентов.
1часть) Определить среднее кол-во студентов в вузах.
2часть) Создать новый файл с информацией о кол-ве вузов в каждом из городов.

[sto.r.m]

ПОМОГИТЕ ПОЖАЛУЙСТА!

[Juffin]

где наработки, что знаем о типизированных файлах?

[sby]

вот чтот придумал но она не полная!!

program vyzu;
uses crt;
type vyz=record
nazvanie,gorod:string[30];
stud:longint;
end;
myfile=file of vyz;
var  i,n:integer; f1:myfile; c1:vyz; suma:integer; ser:double;
begin
     clrscr;
     assign(f1, 'd:\vyzu');
          writeln('введите количество вузов');readln(n);
          rewrite(f1);
          for i:=1 to n do
          begin
               writeln('введите название вуза:'); readln(c1.nazvanie);
               writeln('введите город:');readln(c1.gorod);
               writeln('введите количество студентов:'); readln(c1.stud);
               write(f1,c1);
          end;
          close(f1);
          writeln;
     writeln('название вуза          город              количество студентов');
     reset(f1);
     writeln;
     suma:=0;
     for i:=1 to n do
     begin
          read(f1,c1);
          writeln(c1.nazvanie,'       ',c1.gorod,'        ',c1.stud) ;
          suma:=suma+c1.stud;
     end;
     ser:=suma/n;
     writeln(suma);
     writeln('средние количество студентов =',ser);
     readln;
end.