Пример создания типизованного файла

Задача. Сформировать и вывести на экран файл, представляющий собой ведомость успеваемости студентов 1 курса. Данные об одном студенте имеют структуру вида: Фамилия, Имя, Отчество, номер зачетки, оценки по 5 предметам. Количество студентов (n) и сведения о них вводятся с клавиатуры.

Program Sozd_Fil;
Const
 M=5; { Количество оценок }
Type
 Stud=Record
 Fam, Im, Ot : String[10];
 NumZ : LongInt;
 Otm : Array[1..M] Of Integer;
 End;
 Var
 Vedom : File Of Stud;
 A : Stud;
 FilName : String; { имя набора данных }
 j,i,n : Integer;
 Begin
 Writeln(’Введите имя набора данных’);
 Readln(FilName);
 Assign(Vedom,FilName);
 Rewrite(Vedom); {Открытие файла для записи}
 Writeln(’Введите количество студентов’);
 Readln(n);
 Writeln (’Вводите сведения о каждом студенте’);
 For i:=1 to n do
 Begin
 With A do
 Begin
 Write(’Фамилия: ’);
 ReadLn(Fam);
 Write(’Имя: ’);
 ReadLn(Im);
 Write(’Отчество: ’);
 ReadLn(Ot);
 Write(’Номер зачетки: ’);
 ReadLn(Numz);
 WriteLn(’Введите оценки по одной:’);
 For J := 1 to 5 do
 Begin
 WriteLn(’Введите ’,J,’ -ю оценку’);
 ReadLn(Otm[j]);
 End;
 End;
 Write(Vedom,A); {Запись в файл переписывается целиком}
 End;
 Close(Vedom);
 Writeln (’Конец работы. Нажмите клавишу ENTER’);
 ReadLn;
End.