нахождение пути цикла

[dima92]

Делаю прогу по решению ТЗ и наткнулся на проблему построения цикла. есть таблица с цифрами:
0 0 170
10 0 100
190 0 0
50 150 0

Начальная точка отправления (1,1)=0¿затем должна быть ( 2,1)=10, потом (2,3)=100, потом (1,3)=170 и завершение на первой!!!

Я использовал массив, в котором 1 это точка отправления(одновременно и конечная), цифры заменил на -1, а нули оставил. Прога должна находить такой путь передвигаясь только под прямым углом, почти написал код, но голова уже не варит, прошу поэтому помощи!)

for j:=1 to 4 do
  for i:=1 to 3 do
      if StringGrid1.Cells[i,j]<>'' then
          a[i,j]:=-1
      else
          a[i,j]:=0;

a[MyCol,MyRow]:=1;
i:=MyCol;j:=MyRow;
u:=2;
   repeat
         for j:=1 to 4 do
          if a[i,j] <0 then begin
            a[i,j]:=u;u:=u+1;
            for i:=1 to 3 do
               if a[i,j] <0 then begin
                   a[i,j]:=u;u:=u+1;
                   break;
                end;
            break;
          end;
   until a[i,j]<>1

Вся проблема в том, что никаким образом не предусмотрены выходы из циклов for когда мы сново встанем в (1,1) и потому зацикливаемся, а надо¿чтобы путь был пронумерован и вышло из until

помогите

[Don Karleone]

Если не сложно, напиши полностью условие ТЗ.

[dima92]

Решить методом потенциалов и составить оптимальное решение