Вопрос по информатике:

Помогите решить ошибку:
Ошибка: Program7.pas(12): Ожидалось константное выражение
Z5 программы;

var d, m, g: целое число;

начать

writeln («Программа для вычисления следущего дня!»);
записи ('Введите день, месяц, год: ');
readln (d, м, g);

случае g
g: Если g mod 4 затем
начать
случае м
2:
если d < = 29, затем
если d = 29, затем
начать
writeln («Последний день месяца!»);
writeln («Завтра», d - 28,'. ', m + 1, '.', g);
конец
еще
writeln («Завтра», d, '.', м, '.', g)
еще
writeln («В месяце», м, «28 день!')
конец;
конец
еще
еще
конец;
конец.