типы данных определяемые пользователем, как к задаче приплести эти гребаные типы? Опции

[udaaff]

тема лабораторной: типы данных определяемые пользователем

задача: по введенному сезону определить месяц (тупая, но она такая)
решить ее не проблема без этих типов
а как их реально задействовать здесь, я хз... туплюсь :

[udaaff]

вот какое решение я придумал:)

program laba_666;

uses
   crt;

type
   month = (
      des, jan, fab, mar, apr, may, jun, jul, aug, sep, oct, nov
   );

const
   month_arr: array[month] of string = (
      'декабрь', 'январь', 'февраль', 'март', 'апрель', 'май',
      'июнь', 'июль', 'август', 'сентябрь', 'октябрь', 'ноябрь'
   );

var
   season: string;
   i, first, last, a: month;

begin

   clrScr;

   write('Введите название сезона года: '); readln(season); 
 
   if season = 'зима' then first:= des
      else if season = 'весна' then first:= mar
         else if season = 'лето' then first:= jun
            else if season = 'осень' then first:= sep;
  
   a:= first;
   inc(a,2);
   last:= a;

   for i:= first to last do writeln(month_arr[i]);

end.