По номеру недели вывести его название?Спасибо...

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