Написать программу которая при вводе числа от 1-го до 12 выводит на экран какой это месяц и время года. Использовать собственные типы данных — Pascal(Паскаль)

program months;
uses
   crt;
type
   Period=record
      months: array[1..12] of string;
      season: array[1..4] of string;
   end; {Объявлен тип, содержащий в себе массив из месяцев и массив из времен года}
const
   ms1: array[1..12] of string = ('Январь', 'Февраль', 'Март', 'Апрель',
              'Май', 'Июнь', 'Июль', 'Август', 'Сентябрь', 'Октябрь', 'Ноябрь', 'Декабрь');
   ms2: array[1..4] of string = ('Весна', 'Лето', 'Осень', 'Зима');
var
   Date: Period;
   Num, i: Byte;
begin
   ClrScr;
   for i:=1 to 12 do
      begin
         Date.months[i]:=ms1[i];
         Date.season[i]:=ms2[i];
      end;
   {----------}
   Write('Введите число от 1 до 12: ');
   Readln(Num);
   {----------}
   Write('Месяц: ', Date.months[num]);
   Writeln;
   if (num >= 3) and (num <= 5) then Write('Время года: ', Date.season[1]);
   if (num >= 6) and (num <= 8) then Write('Время года: ', Date.season[2]);
   if (num >= 9) and (num <= 11) then Write('Время года: ', Date.season[3]);
   if (num = 12) or (num <= 2) then Write('Время года: ', Date.season[4]);
   Readln;
end.