Создать массив записей, содержащий сведения о сдаче студентами 1 курса сессии - Turbo Pascal

{ Создать массив записей, содержащий сведения о сдаче студентами 1 курса
сессии. Структура записи - индекс группы, фамилия студента, оценки по
пяти экзаменах, признак участия в общественной работе: 1 -
активное участие 0 - неучастие.            }
const
  n_max=20;
type
  stud=record
    indexg:integer;
    fio:string[128];
    ekz1,ekz2,ekz3,ekz4,ekz5:integer;
    obch:byte;
  end;
var
  n,i:integer;
  s:array[1..n_max] of stud;
begin
  write('Введите количество студентов: ');  readln(n);
  for i:=1 to n do
    begin
      with s[i] do
        begin
          write('Введите индекс группы: ');  readln(indexg);
          write('Введите фамилию студента: ');  readln(fio);
          write('Введите оценку за 1-й экзамен: ');  readln(ekz1);
          write('Введите оценку за 2-й экзамен: ');  readln(ekz2);
          write('Введите оценку за 3-й экзамен: ');  readln(ekz3);
          write('Введите оценку за 4-й экзамен: ');  readln(ekz4);
          write('Введите оценку за 5-й экзамен: ');  readln(ekz5);
          write('Введите признак участия в общественной работе: ');  readln(obch);
        end;
    end;
  readln;
end.