Неправильно работает волновой алгоритм.

[Armageddets]

Задача состоит в том чтобы от начально до конечной проложить пусть в массиве размера 11х6, непроходимые клетки содержат значение -1. Для некоторых начальных и конечных точек алгоритм срабатывает а вот для некотрых нет. Собственно я сейчас поставил координаты точек, для которых чаще не срабатывает, чем срабатывает. Помогите разобраться где я ошибся? Заранее спасибо всем, кто откликнется.

  //vibiraem nachalo puti
    Golova.X:=2;
    Golova.Y:=5;


  //vibiraem konets puti
    Hvost.X:=8;
    Hvost.Y:=0;

  map1[Golova.X,Golova.Y]:=8;
  map1[Hvost.X,Hvost.Y]:=8;
  //stavim 7 pregrad (tsifri)
  n:=0;
  while (n<7) do
  begin
  Randomize;
  i:=Random(11);
  j:=Random(11);
    if (map1[i,j]=0) and ((i-1<>Golova.X) or (j<>Golova.Y)) and ((i+1<>Hvost.X) or (j<>Hvost.Y)) then
    begin
    map1[i,j]:=1;
    Inc(n);
    end;
  end;

  //poluchaem neprohodimie kletki
  for i:=0 to 10 do
  for j:=0 to 5 do
  if (map1[i,j]<>0) and (map1[i,j]<>8) then put[i,j]:=-1;

  //poluchaem nachalnuyu tochku
  put[Golova.X,Golova.Y]:=1;
  //na sosednih kletkah stavim
  if (Golova.X-1>=0) and (put[Golova.X-1,Golova.Y]=0) then put[Golova.X-1,Golova.Y]:=2;
  if (Golova.X+1<=10) and (put[Golova.X+1,Golova.Y]=0) then put[Golova.X+1,Golova.Y]:=2;
  if (Golova.Y-1>=0) and (put[Golova.X,Golova.Y-1]=0) then put[Golova.X,Golova.Y-1]:=2;
  if (Golova.Y+1<=10) and (put[Golova.X,Golova.Y+1]=0) then put[Golova.X,Golova.Y+1]:=2;

    //zapuskaem volnovoe zapolnenie
    n:=2;
    while n<50 do
    begin
      for i:=0 to 10 do
      for j:=0 to 5 do
      if (Put[i,j]=n) then
      begin
      if (i-1>=0) and (put[i-1,j]=0) then put[i-1,j]:=put[i,j]+1;
      if (i+1<=10) and (put[i+1,j]=0) then put[i+1,j]:=put[i,j]+1;
      if (j-1>=0) and (put[i,j-1]=0) then put[i,j-1]:=put[i,j]+1;
      if (j+1<=5) and (put[i,j+1]=0) then put[i,j+1]:=put[i,j]+1;
      end;
    Inc(n);
    end;

  //poluchaem konechnuyu tochku
  map1[Hvost.X,Hvost.Y]:=8;
  n:=Put[Hvost.X,Hvost.Y];
  XX:=Hvost.X;
  YY:=Hvost.Y;

  //stroim put s kontsa
  while n>1 do
  begin
  Dec(n);
  u:=False;
    if (u=false) and (XX-1>=0) and (put[XX-1,YY]=n) then
    begin
    map1[XX-1,YY]:=8;
    Dec(XX);
    u:=True;
    end;
    if (u=false) and (YY-1>=0) and (put[XX,YY-1]=n) then
    begin
    map1[XX,YY-1]:=8;
    Dec(YY);
    u:=True;
    end;
    if (u=false) and (YY+1<=10) and (put[XX,YY+1]=n) then
    begin
    map1[XX,YY+1]:=8;
    inc(YY);
    u:=True;
    end;
    if (u=false) and (XX+1<=10) and (put[XX+1,YY]=n) then
    begin
    map1[XX+1,YY]:=8;
    inc(XX);
    u:=True;
    end;
  end;

Сам проект тоже прилагаю:
Проект

[evg_m]

п.0 сделать ЭТО получить ОШИБКУ и исправить её.

на всяк случай мой переделанный проект.
1. локальные переменные
2. один массив of record вместо трех
3. рисование там где ему и положено быть (OnPaint) и ВЫКЛЮЧЕН таймер (который ВСЕ равно НИЧЕГО не делал кроме ПОСТОЯННОГО перерисовывания последней и только последней позиции) .
4. как следствие (п.3) "работающая" анимация поиска пути путем использование в некоторых местах всего ДВУХ строк

Form1.Repaint; // нарисовать
Sleep(100); // и немножко подождать

иногда добавляется третья
ShowMessage(....);

ЗАФИКСИРОВАН набор(положение) препятствий.
и ЗАПУСК теперь только по меню, запуск из FormCreate мешал "анимации" (пока форма не показана, её и не нарисовать)

ОШИБКА работы выявлена, НО НЕ ИСПРАВЛЕНА!!!! но п.0 сделан и ошибка будет показана.

[phomm]

Задача учебная ? Надо выполнить самому или надо именно чтобы работал поиск пути по волновому алгоритму ? Если второе, я уже много лет успешно использую (ну чуть немного дорабатывал для себя) вот это