[sorockinalex]

думаю, цикл от 0 до -1 с заданием его в виде:

Код:

for i:=0 to -1 do

не должен выполняться...
надо записывать его так:

Код:

for i:=0 downto -1 do

так и не разобрался где ошибка, или не ошибка. в коде выше обошёл просто дополнительным условием