Описать комбинированный тип для представления понятия: семинар

  a: ThreeSem;
  s: string;
  k: integer;
 
begin
  writeln('Ведите данные ', n, '  семинаров');
  for var i := 1 to n do
    with a[i] do
    begin
      writeln('Предмет');
      readln(s);
      predmet := s;
      writeln('Препод');
      read(s);
      prepod := s;
      writeln('Номер группы');
      read(k);
      numGroup := k;
      Writeln('Аудитория');
      read(k);
      audit := k;
      Writeln('Часы от 7 до 19');
      repeat
        read(k);
      until (k >= 7) and (k <= 19);
      hours := k;
      writeln('День недели 1 от 7');
      repeat
        readln(k);
      until (k >= 1) and (k <= 7);
      case k of 
        1: den := 'Понедельник';
        2: den := 'Вторник';
        3: den := 'Среда';
        4: den := 'Четверг';
        5: den := 'Пятница';
        6: den := 'Суббота';
        7: den := 'Воскресенье';
      end;
    end;
  for var i := 1 to n do
    with a[i] do
    begin
      write(predmet:9);
      write(prepod:6);
      write(numGroup:6);
      write(audit:6);
      write(hours:8);
      write(den:6);
      writeln();
    end;
    writeln('В понедельник');
    var b:boolean;
    for var i:=1 to n do
    if a[i].den='Понедельник' then
    begin
    writeln(a[i].predmet);
    b:=true;
    end;
    if not b then write('В понедельник нет семинаров');
end.

program seminar;
 
const
  n = 1;
 
type
  
  semin = record
    predmet: string;
    prepod: string;
    numGroup: integer;
    audit: integer;
    Hours: byte;
    Den: string;
  end;
  ThreeSem = array[1..n] of semin;
 
var
  a: ThreeSem;
  s: string;
  k: integer;
 
begin
  writeln('Ведите данные ', n, '  семинаров');
  for var i := 1 to n do
    with a[i] do
    begin
      writeln('Предмет');
      readln(s);
      predmet := s;
      writeln('Препод');
      read(s);
      prepod := s;
      writeln('Номер группы');
      read(k);
      numGroup := k;
      Writeln('Аудитория');
      read(k);
      audit := k;
      Writeln('Часы от 7 до 19');
      repeat
        read(k);
      until (k >= 7) and (k <= 19);
      hours := k;
      writeln('День недели 1 от 7');
      repeat
        readln(k);
      until (k >= 1) and (k <= 7);
      case k of 
        1: den := 'Понедельник';
        2: den := 'Вторник';
        3: den := 'Среда';
        4: den := 'Четверг';
        5: den := 'Пятница';
        6: den := 'Суббота';
        7: den := 'Воскресенье';
      end;
    end;
  for var i := 1 to n do
    with a[i] do
    begin
      write(predmet:9);
      write(prepod:6);
      write(numGroup:6);
      write(audit:6);
      write(hours:8);
      write(den:6);
      writeln();
    end;
    writeln('В понедельник');
    var b:boolean;
    for var i:=1 to n do
    if a[i].den='Понедельник' then
    begin
    writeln(a[i].predmet);
    b:=true;
    end;
    if not b then write('В понедельник нет семинаров');
end.