[xkor]

creaDo, после end нельзя ставить точку с запятой только если за ним идёт else в блоке if ... then begin ... end else begin ... end;