POLANN_A

Type
    tStudent = Record
      fSurname: String[40];
      fGroup: Integer;
      fSubjC: Array [1..5] Of Char;
      fAvSc: Integer;
    End;
    TStuds = Array [1..25] Of tStudent;
Var
    I, II: Integer;
    FD: File Of TStuds;
    Studs: TStuds;
Begin
    For I:= 1 To 25 Do With Studs[I] Do Begin
      WriteLn('Input ', I, ' student info:');
      Write('Surname: ');
      ReadLn(fSurName);
      Write('Group: ');
      ReadLn(fGroup);
      WriteLn('Input student subjects of choice:');
      For II:= 1 To 5 Do Begin
        Write('Subject #', II, ': ');
        ReadLn(fSubjC[II]);
      End;
      Write('Average score: ');
      ReadLn(fAvSc);
    End;
    Assign(FD, 'students.dat');
    ReWrite(FD);
    Write(FD, Studs);
    Close(FD);
    WriteLn('File saved.');
End.