Составить программу, в паскале, которая при вводе с экрана номера месяца, выводит его название в паскале.

var x:integer
begin
writeln('Введите месяц');
read(x);
If x = 1 Then
Writeln('Январь');
ElseIf X=2 Then
Writeln('Февраль');
ElseIf X=3 Then
Writeln('Март');
ElseIf X=4 Then
Writeln('Апрель');
ElseIf X=5 Then
Writeln('Май');
ElseIf X=6 Then
Writeln('Июнь');
ElseIf X=7 Then
Writeln('Июль');
ElseIf X=8 Then
Writeln('Август');
ElseIf X=9 Then
Writeln('Сентябрь');
ElseIf X=10 Then
Writeln('Бухабрь');
ElseIf X=11 Then
Writeln('Ноябрь');
ElseIf X=12 Then
Writeln('Новый год');
Else
Writeln('Идиот! таких месяцев нет) ;
ehdIf;
End;

uses crt;
var
i: integer;
begin
clrscr;
write('Введите номер месяца: '); readln(i);
if (i<1) or (i>12) then
begin
writeln('Ошибка ввода данных.');
readkey;
exit;
end;
case i 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;
readln;
end.