Составить программу Pascal:  Вводят число от 1-12 -номер месяца... Если число входит в интервал от 1 до 12, то высвечивается месяц, а если нет то выходит слово ошибка!!! Помогите срочно..!!!

var months: array [1..12] of string;     x: integer; begin   months[1] := 'January';   months[2] := 'February';   months[3] := 'March';   months[4] := 'April';   months[5] := 'May';   months[6] := 'June';   months[7] := 'July';   months[8] := 'August';   months[9] := 'September';   months[10] := 'October';   months[11] := 'November';   months[12] := 'December';   read(x);   if ((x < 1) or (x > 12)) then begin     write('Error!');   end else begin     write(months[x]);   end; end.