Написать программу, которая по номеру дня недели (целому числу от 1 до 7) выдает в качестве результата расписание уроков

var
  a: integer;
 
begin
  readln(a);
  case a of
    1: writeln('В понедельник у меня 4 урока!');
    2: writeln('Во вторник у меня 1 урок!');
    3: writeln('В среду у меня 3 урока!');
    4: writeln('В четверг у меня 4 урока1');
    5: writeln('В пятницу у меня 5 урока!');
    6: writeln('В в субботу у меня 4 урока!');
    7: writeln('В воскресенье я отдыхаю!');
  end;
end.

Var
  x: integer;
BEGIN
Repeat
 Write('Ввести число от 1 до 7: ');
 Readln(x);
until x in [1..7];
Case x of
  1: Writeln('4 пары');
  2: writeln('2 пары');
  3: writeln('4 пары');
  4: writeln('4 пары');
  5: writeln('2 пары');
  6: writeln('нет пар');
  7: writeln('нет пар');
end;
Readln
END.