Вроде всё в порядке, пишу процедуру и тут внезапно так:
http://s009.radikal.ru/i310/1112/ad/ee31c7ebd420.jpg

Точку с запятой не забыл поставить случайно?

(странный какой-то компилятор, любой другой говорит, что "ожидалась точка с запятой", а этот - ожидает begin зачем-то )

Мда, понятно, сам дурак, но всё-таки вина компилятора очевидна, про бегин начал мне что-то втюхивать.

Хм.. А интересно, если ему дать там begin - что он тогда скажет?

"Еще один begin давай! Гулять так гулять!!!"

Опять ЖоПеГоскрин!!!
Авминистрация, напишите же, что в 99% случаев надо брать ПНГ, ну невозможно же на это мыльное говно смотреть!

вопрос,а там не получается так что первый begin совпал с end; ?Может в этом дело
var ...;
begin
...
...
...
...end;
..
..
end.
Или я опять что-то не понял?

Нет, потому что блок begin end, что виден на картинке, относится к подпрограмме Pyramid