[Pascal ABC] В 7-ой строке пишет,что ожидалось имя процедуры или функции,не понимаю как это исправить и что делать!

[SMOKE SMOKE]

var a,b,c,d,e,f,g,h:integer;
begin
writeln('vv datu (chislo,mes,god)');
readln(a,b,c);
f:=a+1;
g:=b+1;
if (f=32)or(f=30)then(g=1);
if (g=13) then (h=c+1);
write(f,' ',g,' ',h,' ');
reakey;
end.

Пожалуйста, оформляйте Ваш код согласно правилам.
все это в Pascal ABC.

[Аватар]

А в Pascal ABC присвоение не так: g:=1

[type_Oleg]

и еще :

Сообщение от SMOKE SMOKE

reakey;

Может быть ReadKey ?