Напишите программку, которая получает с клавиатуры номер месяца и выводит заглавие

Program n_5;

var
  a: integer;

procedure Error;
begin
  write('ERROR');
  exit;
end;

begin
  write('Введите номер месяца - ');
  readln(a);
  if (a lt;= 0) or (a gt; 12) then
    Error
  else
  if (a = 12) or (a = 1) or (a = 2) then
    write('Зима')
  else
  if (a = 3) or (a = 4) or (a = 5) then
    write('Весна')
  else
  if (a = 6) or (a = 7) or (a = 8) then
    write('Лето')
  else
  if (a = 9) or (a = 10) or (a = 11) then
    write('Осень');
end.