Выложи свой исходник в архиве, а то не видно что там за мужик и что он там кидает.
А пока научись использовать операторы
AND и
OR.
Строки
if (i>0) and (i<45) then H:=H-2;
или
if (i>44) and (i<92) then H:=H+2;
или
if (z>0) and (z<6) then u:=u+2;
Не только намного сократят текст твоего исходника, но и убыстрят работу программы.