[Cliffe Snake]

2Mark Castle. Чувак, у тебя с логикой полный пипец.

Что неправильного в условии if (q<x) and (q>(x+19)) and (u<43) and (u<38 ) then

( u<43 ) and ( u<38 ) это равносильно ( u<38 )
Иди почитай теорию по связке логических выражений. Я думаю, вряд ли кто на форуме захочет учить тебя таким ЭЛЕМЕНТАРНЫМ вещам.
Ясный пень, что у тебя ничё не работает.
И кому интересно я говорил, что для вызова процедуры из других процедур нужно использовать FORWARD;?

После строки

procedure aaaaaaa; 


Вставь эту

Forward;