Светик123

заработало)) спасибо огромное

Vladimir_S

Уф!!!
P.S. Подозреваю, что проблема была в строке
until Not(LeftBorder(StepX)) or KeyPressed;
Дело в том, что если, допустим, есть некая булева переменная bu, то отрицание может быть задано двояко: либо
not bu, либо
not(bu) - в этом случае "not" выступает, как встроенная функция.
Так вот, обоим моим Паскалям это дело пофиг - как нравится, так и пиши, а вот некоторые реализации воспринимают только один из вариантов. Возможно, в этом и была закавыка. В последнем варианте программы я вообще выбросил функцию LeftBorder.