Вывести название дня недели по его номеру(паскаль)

//PascalGUI

var
a:integer;
begin
readln(a);
case a of
1:writeln('Понедельник');
2:writeln('Вторник');
3:writeln('Среда');
4:writeln('Четверг');
5:writeln('Пятница');
6:writeln('Суббота');
7:writeln('Воскресенье')
else writeln('Не день недели');
end;
end.

Пример ввода:
1
Пример вывода:
Понедельник