Определить комбинированный тип для представления следующих данных: экзамен

program lab_15v8
type
  exam=record
    subject:string;
    group_number:integer;
    date:string;
    time:string;
    room:integer;    
end;
 
var n,n_group:integer;
    mas:array[1..100] of exam;
 
begin
  write('Кол-во экзаменов: ');
  readln(n);
  
  for var i:=1 to n do
  begin
    writeln('Экзамен №', i);
 
    with mas[i] do
    begin
      write('Предмет: ');
      readln(subject);
      write('Номер группы: ');
      readln(group_number);
      write('День: ');
      readln(date);
      write('Начало экзамена: ');
      readln(time);
      write('Номер аудиторий: ');
      readln(room);
    end;
  end;
  
  write('Введи номер группы для поиска: ');
  readln(n_group);
  
  for var i:=1 to n do
    if mas[i].group_number = n_group then
        with mas[i] do
        begin
          writeln('Предмет: ',subject);
          writeln('Номер группы: ',group_number);
          writeln('День: ',date);
          writeln('Начало экзамена: ',time);
          writeln('Номер аудиторий: ',room);
        end;
end.

type
  exam = record
    subject: string[20];
    group_number: integer;
    date: string[10];
    time: string[10];
    room: integer;    
  end;

program lab_15v8

var i, n, n_group: integer;

for i:=1 to n do