Задействованы не все возможности Pascal

[eligantRU]

Попробуй начать использовать инкремент и декремент там, где это уместно. Смотреться код будет гораздо лучше.