Работа с динамикой, Причина ошибки? Опции

[Relrin]

Делаю задачу по следующему условию:


С того момента, как написал процедуру, которая складывает элементы очередей(например, 1 в первой ячейки очереди А, во второй Б соответственно 2, например. Я их складываю, и значения первой ячейки А, перезаписываю на результат сумму, при этом элемент Б, который использовался, освобождаю с помощью FreeMem.), FreePascal начал выдавать ошибку на указателе (знаке ^) с текстом "Internal Error 200507031", хотя вроде бы как все правильно... Может быть кто-нибудь сталкивался с такой ошибкой, и знает ее решение?

Исходный код программы приведен в аттаче.

Сообщение отредактировано: Relrin - 10.04.2011 16:32