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

uses crt;
var m,ex:integer;
begin
repeat
 repeat
  writeln('Введите месяц - ');read(m);
 until m in [1..12];
 if (m in [1..2]) or (m = 12) then
 begin
  textcolor(white);
  case m of
   1:writeln('Январь');
   2:writeln('Февраль');
   12:writeln('Декабрь');
  end;
 end;
 
 if (m in [3..5]) then
 begin
  textcolor(lightgreen);
  case m of
   3:writeln('Март');
   4:writeln('Апрель');
   5:writeln('Май');
  end;
 end; 
 
 if (m in [6..8]) then
 begin
  textcolor(green);
  case m of
   6:writeln('Июнь');
   7:writeln('Июль');
   8:writeln('Авгус');
  end;
 end;
 
 if (m in [9..11]) then
 begin
  textcolor(yellow);
  case m of
   9:writeln('Сентябрь');
   10:writeln('Октябрь');
   11:writeln('Ноябрь');
  end;
 end;
 
textcolor(lightgray);
writeln('Для выхода нажмите 0 - ');read(ex);
until ex=0;
end.

uses crt;
var n: integer;
begin
     readln(n);
    case n of
    1:  textcolor (1);
    2:  textcolor (1);
    3:  textcolor (2);
    4:  textcolor (2);
    5:  textcolor (2);
    6:  textcolor (4);
    7:  textcolor (4);
    8:  textcolor (4);
    9:  textcolor (14);
    10:  textcolor (14);
    11:  textcolor (14);
    12:  textcolor (1);
    end;
    case n of
    1:   writeln('January');
    2:   writeln('February');
    3:   writeln('March');
    4:   writeln('April');
    5:   writeln('May');
    6:   writeln('June');
    7:   writeln('July');
    8:   writeln('August');
    9:   writeln('September');
    10:   writeln('September');
    11:   writeln('November');
    12:   writeln('December');
    end;
end.