Написать программку на языке Pascal. Задание 1: Вводится заглавие месяца. Вывести

Var s:string;

begin
readln(s);
case s of
'Январь','Декабрь','Февраль': writeln('Зима');         
'Март','Апрель','Май' : writeln('Весна');         
'Июнь','Июль','Август' : writeln('Лето');         
 'Сентябрь','Октябрь','Ноябрь' : writeln('Осень');         
'Зима' : writeln('Декабрь ','Январь ','Февраль');         
 'Весна' : writeln('Март ','Апрель ','Май');         
 'Лето' : writeln('Июнь ','Июль ','Август');         
'Осень' : writeln('Сентябрь ','Октябрь ','Ноябрь');
end;
end.