Написать программу, в которой по месяцу(месяц цифрами) определяется время года.- Pascal(Паскаль)

const
  season: array [0..3] of string[6] = ('winter','spring','summer','autumn');
var
  month: integer;
begin
  write('type in the month number: ');
  readln(month);
  writeln('the season is ',season[month mod 12 div 3]);
  readln
end.