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.

---