Ввести заглавие месяца и вывести на экран время года Pascal

program zz1;

var  k:string; // задаем переменную строкового типа

begin

write( введите заглавие месяца );  

      read(k);// вводим с клавиатуры месяц

        if k = Январь then write(Зима);

        if k = Февраль then write(Зима);

        if k = Март then write(Весна);

        if k = Апрель then write(Весна);

        if k = Май then write(Весна);

        if k = Июнь then write(Лето);

        if k = Июль then write(Лето);

        if k = Август then write(Лето);

        if k = Сентябрь then write(Осень);

        if k = Октябрь then write(Осень);

        if k = Ноябрь then write(Осень);

        if k = Декабрь then write(Зима);     

end.