Узнать расписание уроков в определенный день — Pascal(Паскаль)

uses crt;

var
  day: integer;

label 11, 22, 33, 44, 55;

begin;
  clrscr;
  writeln('введите номер дня недели');
  readln(day);
  case day of
    1:
      goto 11;
    2:
      goto 22;
    3:
      goto 33;
    4:
      goto 44;
    5:
      goto 55;
  end;
  writeln('А у нас пятидневка');
  halt;
11:
  writeln('1.математика');
  writeln('2.математика');
  writeln('3.химия');
  writeln('4.физика');
  writeln('5.биолог');
  halt;
22:
  writeln('1.математика');
  writeln('2.литер.');
  writeln('3.ин.яз.');
  writeln('4.физика');
  writeln('5.физ-ра');
  halt;
33:
  writeln('1.литер.');
  writeln('2.литер.');
  writeln('3.ин.яз.');
  writeln('4.химия');
  halt;
44:
  writeln('1.инф');
  writeln('2.математика');
  writeln('3.биолог');
  writeln('4.географ.');
  writeln('5.географ');
  halt;
55:
  writeln('1.математика');
  writeln('2.литер.');
  writeln('3.истор');
  writeln('4.истор');
  writeln('5.литер.');
  halt;

end.