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

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