Ребята, помогите. Дам 30 баллов за помощь. Помогите отыскать ошибку в

Ребята, помогите. Дам 30 баллов за помощь.
Помогите отыскать ошибку в коде на паскале

Условие: По введенному с клавиатуры номеру медли года вывести на экран его заглавие(1-зима, 2-весна, 3- лето, 4-осень)

Код, который я написал
Var n: integer;
Begin ;
Readln (n)
Case n of
1,2,12 :write ('Зима' ) ;
3,4,5 :write ('Весна') ;
6,7,8 :write ('Лето') ;
9,10,11 :write ('Осень') ;
Else write ('Такового месяца нет') ;
End;
End

Помогите отыскать ошибку.