Написать программку, которая по введенному числу от 1 до 12 (номеру

uses crt;
var n: integer;
begin
write(Введите номер месяца: );
readln(n);
case n of
1:
begin
writeln( 1 января - Новый год);
writeln( 7 января - Рождество Христово);
writeln(19 января - Крещение Господне);
end;
2:
begin
writeln( 8 февраля - Денек Русской науки);
writeln(20 февраля - Международный денек родного языка);
writeln(23 февраля - День заступника Отечества);
writeln(28 февраля - Масленица);
end;
3:
begin
writeln( 1 марта - Праздничек прихода весны);
writeln( 8 марта - Интернациональный женский день);
end;
4:
begin
writeln( 1 арпеля - Интернациональный денек птиц);
writeln( 7 апреля - Денек рождения Руинтернета);
writeln(12 апреля - Католическая Пасха);
writeln(23 апреля - Пасха);
end;
5:
begin
writeln( 1 мая - День труда);
writeln( 9 мая - Денек Победы);
writeln(10 мая - День матери);
writeln(15 мая - Интернациональный денек семьи);
end;
6:
begin
writeln( 5 июня - Глобальный день охраны окружающей среды);
writeln( 6 июня - Троица);
writeln(24 июня - Купала);
writeln(25 июня - День единения славян);
end;
7:
begin
writeln( 6 июля - Глобальный денек поцелуя);
writeln( 8 июля - Всероссийский денек семьи, любви и верности);
writeln(10 июля - Денек рыбака);
writeln(11 июля - Глобальный денек шоколада);
end;
8:
begin
writeln(12 августа - Денек Военно-воздушных сил (День ВВС));
writeln(22 августа - Денек Муниципального флага Русской Федерации);
end;
9:
begin
writeln( 1 сентября - Денек познаний);
writeln(21 сентября - Международный день мира);
writeln(30 сентября - Денек Интернета в Рф);
end;
10:
begin
writeln( 1 октября - Международный денек улыбки);
writeln( 5 октября - Глобальный денек учителя);
writeln(31 октября - Хэллоуин - канун Денька всех святых);
end;
11:
begin
writeln( 1 ноября - Денек всех святых);
writeln( 8 ноября - Международный день КВН);
writeln(17 ноября - Международный денек студентов);
writeln(27 ноября - Денек мамы Рф);
end;
12:
begin
writeln( 6 декабря - Денек сетевика);
writeln(10 декабря - Денек прав человека);
writeln(23 декабря - Католический сочельник);
writeln(25 декабря - Католическое Рождество);
end;
else writeln(Нет такого месяца!);
end;
readkey
end.