Кратчайший путь в графе Опции

[SeregaR1Val]

Помогите пожалуйста с программкой:
"Поиск кратчайшего пути в графе методом полного перебора в ширину с использованием АТД очередь"
Сам алгоритм у меня есть, но ничего не знаю про АТД очередь, ни у кого нет примеров такой программы?

[volvo]

начала вылезать ошибка, не понимаю почему

Потому что надо быть более внимательным:

procedure step;
begin
  queueinit(q);
  queuepush(q, start);
  While not queueEmpty(q) do begin
    Current := queuepop(q);
    Finished := Current = finish;
    j := 1;
    while j<=N do begin
      if (M[Current,j] <> 0) and not visited(j, way) then begin
        Way[j] := Current;
        Finished:=(j = finish);
        if not Finished then queuepush(q, j) // <--- Здесь и в оригинале было q.put(j), а не q.get
      end;
      inc(j);
    end;
  end;

  // Label1 заполняется вот так:
  Label1.Caption := IntToStr(finish);
  i := finish;
  while i <> start do begin
    i := Way[i];
    Label1.Caption := Label1.Caption + ' ' + IntToStr(i);
  end;
end;