Работа с динамическими структурами... найдите ошибку (паскаль)

[lblondy]

программа большая, но умоляю помогите найти ошибку. пишет "попытка разыменовать нулевой указатель"
что-то со стеком не то... уже крыша съезжает

[Alex11223]

Увидел,

m,l,i,j,i1,i2,i3,i4,i5,i6,jp3,jp1,j p2,k2,h,small,k5,k3,k4,w,w1:byte;
K,k1,kp,mn1,mn2,mn3,mn4,mp1,mp2,mp3 ,mp4,mn5,mn6:set of byte;

испугался.
В какой строке ошибка-то?)

[lblondy]

прошу прошения там половину нужно поудалять (потом сделаю)
»*Ошибка: попытка разыменовать нулевой указатель (рнен.pas, строка 798)
в основном в этой, но я боюсь, что она может выскочить в любом из перемещений по стеку

[Alex11223]

http://pastebin.com/wTRt08t8 — код с подсветкой и нумерацией строк. В нем, кстати, < 798 строк) В PascalABC пару раз запустил: несколько раз что-то выдало без ошибок, остальные зависало.

[lblondy]

позапускай пожалуйста раз 15-20 почему то у меня на компе он не виснет, но все-таки выдает эту долбанную ошибку (в коде с сайта который ты скидавал строка 672)