Перечислимые типы и символьные массивы. Pascal.

[NaniDesKa]

1) Мне задано 2 перечислимых типа: месяцы и сезоны. Нужно составить программу, определяющую на какой сезон приходится данный месяц.
Вот что я натворил (работает)
Uses crt;
Type
sez = (Spring, Summer, Autumn, Winter);
mes = (January, February, March, April, May, June, Jule, August, September, October, November, December);
Var
s: sez;
m: mes;
num:1..12;
i: integer;
Begin
Clrscr;
Writeln ('Enter № of months ');
Read (num);
Case num of
1 : m:= January;
2 : m:= February;
3 : m:= March;
4 : m:= April;
5 : m:= May;
6 : m:= June;
7 : m:= Jule;
8 : m:= August;
9 : m:= September;
10 : m:= October;
11 : m:= November;
12 : m:= December;
End;
Case m of
January, February, December: Write ('- Winter months');
March, April, May: Write ('- Spring months');
June, Jule, August: Write ('- Summer months');
September, October, November: Write ('- Autumn months');
End;
Read (i);
End.
Хотелось бы, чтобы выводил не 1 - winter months, а Junuary - winter mounth... И вообще правильно ли я составил?) Просто никаких функций и сезоны я не трогал.

2) Дана послед. до 30 слов из 1 - 5 символов каждое, в конце последнего точка, между словами пробел/запятая. Задать строковую const до 5 символов и напечатать все последовательности, содержащую ее.
Здесь мне даже не понятно чего от меня требуют (в смысле не понятно насчет слов, как это оформить, когда вводишь данные).
Вот, если вам не сложно, помогите.. и простите, если много понаписал, хочется разобраться.

[RUSt88]

Writeln ('Enter № of months ');
Read (num);
case num of
1..2, 12 : Write (m[num], ' - ', sez[4]);
4..6: Write (m[num], ' - ', sez[1]);
и т.д.
end;


немного исправил, смотри

[NaniDesKa]

RUSt88
Спасибо.)
Только надо ввести массив, там ведь m[num] на это указывает?)

[Serge_Bliznykov]

NaniDesKa, к сожалению, переменная заданного Вами перечисляемого типа выведена на экран быть НЕ МОЖЕТ.
Поэтому, если Вам надо выводить название месяца, Вам прийдётся написать либо код вида:

function GetMonthName(mmm : mes) : string;
begin
  Case m of
   January : GetMonthName := 'January';
   February : GetMonthName := 'February';
   March : GetMonthName := 'March';
   ...
   December: GetMonthName := 'December';
 End;
end;
...
и далее в программе:
 Write (GetMonthName(m), '- Winter months');

либо банально завести массив вида:

   const MonthName: array[0..11] of string[10] =
     (' Январь  ',' Февраль ','  Март   ',' Апрель  ','   Май   ',
      '  Июнь   ','  Июль   ',' Август  ','Сентябрь ','Октябрь ',
      ' Ноябрь  ',' Декабрь ');

и тогда в программе:
 Write (MonthName[ord(m)], '- Winter months');

[NaniDesKa]

Ммм, спасибо всем. =)