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

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.