Введите число от 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.