Составить програму которая в зависимости от порядкого номера дня месяца ( 1, 2..12) выводит на екран его название (январь, )

Program z1;
var
x:integer;
begin
writeln('Введите номер месяца ');
readln(x);
Case x of
1:writeln('Январь');
2:writeln('Февраль');
3:writeln('Март');
4:writeln('Апрель');
5:writeln('Май');
6:writeln('Июнь');
7:writeln('Июль');
8:writeln('Август');
9:writeln('Сентябрь');
10:writeln('Октябрь');
11:writeln('Ноябрь');
12:writeln('Декабрь');
end;
end.