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

[udaaff]

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

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

[udaaff]

uses
   crt;

var
   season: string;

begin
   clrScr;
   write ('введите сезон года: ');
   readln (season);
   if season = 'зима' then write ('декабрь, январь, февраль')
      else if season = 'весна' then write ('март, апрель, май')
         else if season = 'лето' then write ('июнь, июль, август')
            else if season = 'осень' then write ('сентябрь, октябрь, ноябрь')
   {или можно создать массив месяцев и брать их от туда}
end.

Если бы можно было вводить с консоли
"типы данных определяемые пользователем", было бы конечно же хорошо

Если посмотреть на эту задачу шире... то по введенному диапазону,
вывести все его значения
У меня были мысли создать тип "месяца", надтипы типа "месяца" -- "сезоны",
но что то все равно...