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

[Relrin]

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


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

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

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

[volvo]

Обновляй.

К тому же, есть еще одно место, которое выглядит не очень хорошо (по крайней мере, у меня при запуске начались с ним проблемы). Не используй GetMem/FreeMem, работай с New/Dispose. Вот тут (процедура DivisionDeck):

    {перенос части в очередь а}
    if i<=5 then
    begin
      {переносим в ячейку число (очередь а) из дека}
      a.next1^.elem:=c.front^.elem;
      {запоминаем ссылку дека}
      adr:=c.front^.next;
      {переходим к следующей ссылке дека}
      c.front^.next:=c.front^.next^.next;
      {освобождаем память предыдущей ячейки, т.к. использовалии ее}
      {и она нам больше не потребуется в дальнейшем}
{*}      FreeMem(adr,SizeOf(adr));
      {выделяем память для нового элемента очереди а}
      GetMem(a.next1^.next,sizeof(a.next1^.next));
      {заносим в нее ссылку}
      a.next1^.next:=a.next1^.next^.next;
    end

программа падает. Если заменить во всей программе GetMem(X, Size) на New(X), а FreeMem(X, Size) на Dispose(X), то вылета уже не происходит...