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

uses crt;
var k:integer;
begin
 clrscr;
 repeat
  write('Номер дня недели -> ');
  readln(k);
 until (k>=1) and (k<=7);
 case k of
 1,2,4:writeln('Шесть уроков');
 3,6:writeln('Пять уроков');
 5:writeln('Семь уроков');
 7:writeln('Выходной');
 end;
 readln;
end.

uses crt;
var number: byte;
begin
clrscr;
write('введите номер дня недели: ');
readln(number);
case number of
1: writeln('сегодня 6 уроков');
2: writeln('сегодня 7 уроков');
3: writeln('сегодня 5 уроков');
4: writeln('сегодня 6 уроков');
5: writeln('сегодня 6 уроков');
6: writeln('сегодня 7 уроков');
7: writeln('сегодня выходной');
end;
else writeln('ошибка ввода');
end.

program Kitaickii;
Uses crt;
var a,b:integer;
fign:boolean;
s:string;
begin
fign:=false;
ReadLn (a);
b:=a;
case b of
1:s:=s+'В понедельник 4 урока';
2:s:=s+'Во вторник 6 уроков ';
3:s:=s+'В среду 6 уроков ';
4:s:=s+'В четверг 7 уроков';
5:s:=s+'В пятницу 5 уроков';
6:s:=s+'В суботу 3 урока';
7:s:=s+'В воскресенье выходной!!!';
end;
WriteLn (s);
ReadLn;
end.