Парни, очень нужно подкорректировать код

[MrOw]

Помогите пожалуйста!
36.jpg

var 
a,n:integer; 

begin 
writeln;
writeln('Составьте программу определения числа дней в месяце, если даны:номер месяца N-целое число от 1 до 12,целое число A, равное 1 для високосного года, не високосном A=0.');
begin
writeln('Введите месяц(1-12):');
readln(n);
writeln ('Если год високосный,введите 1,если иначе то введите 0');
readln (a);

case n of
write ('В январе 31 день'):
if a=1 then write ('В феврале 29 дней') else write ('В феврале 28 дней');
write ('В марте 31 день')
write ('В апреле 30 дней')
write ('В мае 31 день')
write ('В июне 30 дней')
write ('В июле 31 день')
write ('В августе 31 день')
write ('В сентябре 30 дней')
write ('В октябре 31 день')
write ('В ноябре 30 дней')
write ('В декабре 31 день')
end;
reafln;
end;
end.