При вводе номера месяца вывести название месяца и сезон — Pascal(Паскаль)

Program P2;
uses crt;
type sezon=(Zima,Vesna,Lito,Osin);
     misiac=(sichen,lutiy,berezen,kviten,traven,cherven,lypen,
             serpen,veresen,jovten,lystopad,gruden);
const szn:array[sezon] of string[5]=('зима','весна','лето','осень');
      msc:array[misiac] of string[10]=('январь','февраль','март','апрель',
                                     'май','июнь','июль','август',
                                     'сентябрь','октябрь','ноябрь','декабрь');
var c,ms,sz:integer;
    s:string;
begin
clrscr;
repeat
writeln('Введите номер месяца от 1 до 12 c=');
read(c);
until c in [1..12];
case c-1 of
ord(sichen):s:=msc[sichen]+' '+szn[Zima];
ord(lutiy):s:=msc[lutiy]+' '+szn[Zima];
ord(gruden):s:=msc[gruden]+' '+szn[Zima];
ord(sichen):s:=msc[sichen]+' '+szn[Zima];
ord(berezen):s:=msc[berezen]+' '+szn[Vesna];
ord(kviten):s:=msc[kviten]+' '+szn[Vesna];
ord(traven):s:=msc[traven]+' '+szn[Vesna];
ord(cherven):s:=msc[cherven]+' '+szn[Lito];
ord(lypen):s:=msc[lypen]+' '+szn[Lito];
ord(serpen):s:=msc[serpen]+' '+szn[Lito];
ord(veresen):s:=msc[veresen]+' '+szn[Osin];
ord(jovten):s:=msc[jovten]+' '+szn[Osin];
ord(lystopad):s:=msc[lystopad]+' '+szn[Osin];
end;
write(s);
readkey;
end.