[NIch]

Варианты ищи в логике программы...в нее не вникал,в глаза бросилась только эта строка...
Т.к. чтобы загнать данные в указатель используют
te[i] := @st
чтобы вытащить
st := te[i]^