По введенному номеру от 1 до 7 выводит на экран день недели

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