Реализация функции Enqueue (PASCAL)

Question

У меня проблемы с получением очереди в моей программе для работы. Каждая попытка корректировки приводила к "ERangeError: Ошибка проверки диапазона". Я знаю, что это потому, что программа пытается получить доступ к чему-то, что не существует, но я не могу понять, как это исправить. Вот моя реализация очереди...

node = record //Square on chessboard
  x: integer; //Row coordinate
  y: integer; //Col coordinate
  d: integer; //Distance from starting position
  next: ^node;// (for the queue)
 end; //node
coord = ^node;//'Coordinates'
queue = record//Queue w/ Linked List
  head: coord;
  tail: coord;
 end; //queue

procedure init(var q: queue);
  begin
    q.head := nil;
    q.tail := nil;
   end; //init
function isEmpty(const q: queue): boolean;
 begin
  isEmpty := (q.head = nil);
 end; //isEmpty
procedure push(var q: queue; m, n, o: integer);
 var C: coord;
 begin
  new(C);
    C^.x := m;
    C^.y := n;
    C^.d := o;

  if q.head = nil then begin
    q.head := C;
    q.tail := q.head;
    end
  else begin
    q.tail^.next := C;
    q.tail := C;
    end;
 end; //push
procedure pop(var q: queue; out m: int; out n: int; out o: int);
 var C: coord;
 begin
  m := q.head^.x;
  n := q.head^.y;
  o := q.head^.d;

  C := q.head;
  q.head := q.head^.next;
  dispose(C);
  if q.head = nil then q.tail := nil;
 end; //pop

... и вот основная часть функции, которая взаимодействует с ним.

while not isEmpty(q) do begin
  pop(q, row, col, dst);
    new(crd2);
    crd2^.x := row;
    crd2^.y := col;
    crd2^.d := dst;

  if valid(B, crd2) and not visited[crd2^.x, crd2^.y] then
    visited[crd2^.x, crd2^.y] := true; //Mark square as visited
  if (crd2^.x = Gl^.x) and (crd2^.y = Gl^.y) then
    exit(crd2^.d); //Goal Check

  for i := 1 to 8 do begin
    crd2^.x := crd2^.x + mvmtX[i];
    crd2^.y := crd2^.y + mvmtY[i];

    if valid(B, crd2) and not visited[crd2^.x, crd2^.y] then begin
      crd2^.d := crd2^.d + 1;

      push(q, crd2^.x, crd2^.y, crd2^.d);

     end;//if valid(B, crd)...

  end;//for i
 end;//while not isEmpty(q)
 exit(crd^.d);
end;

Я думал, что решил проблему, добавив в программу достаточно новых вызовов (узлов), но ошибка все еще сохраняется. Я действительно в растерянности и был бы признателен за любую ясность, которую вы могли бы предложить.
Я бы написал своему профессору по электронной почте, но сейчас он катается на лыжах, и до него трудно добраться. Спасибо за любой совет:)