Введите число от 1 до 7.если 1 - понедельник,если 2 - вторник и т.д.вывести все это на pascal abc

Тоесть нужно составить программу,которая по заданному числу от 1 до 7, выводит название соответствующего ему дня?

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