В until пишется условие,при выполнении которого цикл завершается,насколько я помню. То есть Вам нужно поменять знаки,ну и некоторые условия можно убрать.
Тю... а я думал, что пока выполняется это условие в Until выполняется цикл

Спасибо всем за помощь


Ещё раз спасибо
