По номеру месяца определить пору года — Pascal(Паскаль)

program month;
var m: integer;
begin
write ('Введите число:');
readln (m);
case m of
12,1..2: writeln ('Это месяц зимы');
 3..5: writeln ('Это месяц весны');
 6..8: writeln ('Это месяц лета')
 else writeln ('Это месяц осени')
 end
end.