Работа с записями.балл группы

program Lab13;
uses crt;
 const N=15;
type
Subject = (Mathematics1, Chemistry1, Graphics1, Mathematics2, Chemistry2, Graphics2 );
type
  student = record; Name:string [20];
                    Surname:string[20];
                    Gender:string[20];
                    Cod:string[5];
                    Date:integer;
  Session: array [Mathematics1.. Graphics2] of byte;
  end;
  var
Base : array [1..N] of student;
i:byte;
j:byte;
Group :boolean;
begin
for i:=1 to N do
begin
  write('Имя'); readln (Base[i].Name);
  write('Фамилия: '); readln (Base[i].SurName);
  write('Пол: '); readln (Base[i].Gender);
  write('Группа: '); readln (Base[i].Cod);
  write('Дата рождения: '); readln (Base[i].Date);
  write('Оценка.Мат1сем.: '); readln (Base[i].Session[Mathematics1]);
  write('           Химия1сем: '); readln (Base[i].Session[Chemistry1]);
  write('           Графика1сем: '); readln (Base[i].Session[Graphics1]);
  write('           Мат2сем: '); readln (Base[i].Session[Mathematics2]);
  write('           Химия2сем: '); readln (Base[i].Session[Chemistry2]);
  write('           Графика2сем: '); readln (Base[i].Session[Graphics2]);
  writeln;
end;