Стрвнности с "распространением" информации в массиве, наверно несовершенный алгоритм Опции

[TriuS-Strannik]

Я тут впервые... так что сильно не ругайте, если не в ту тему залез...

Пишу пошаговую статегию., и возникла одна проблема уже вторую неделю долблю...

Созданно два двумерных массива для хранения информации;
я обхожу каждую ячейку, и если она занята, то выполняю для неё некий "скрипт" а результаты записываю во второй массив, и вывожу на экран;
потом одновляю первый массив...

а проблема такая текущая ячейка на окружением упрвляет нормально, а вот в зависимости от окружения управляется только по направлению обхода массива...

В примере должен получиться симметричный крести, но данные о длинне линии на второй ячейке теряются...

Помогите, уже терпение испоряеся...

Зарание спасибо!

[TriuS-Strannik]

Вот пример решения:

Pered[Eta  ]:=PPole[x  ,y  ];
   Pered[Verh ]:=PPole[x+1,y  ];
   Pered[Pravo]:=PPole[x  ,y+1];
   if GOST <> 0 then
   begin
    Pered[Niz  ]:=SPole[x-1,y  ];
    Pered[Levo ]:=SPole[x  ,y-1]
    end
   else
   begin
    Pered[Niz  ]:=PPole[x-1,y  ];
    Pered[Levo ]:=PPole[x  ,y-1]
    end;
   
   Trans^.Ustanovka(@Pered);
   
   str(nom^,t);
   t:='fv'+t;
   
   Trans^.Translatiya(t);

   SPole[x  ,y  ]:=Pered[Eta  ];
   if GOST <> 0 then
   begin
    SPole[x+1,y  ]:=Pered[Verh ];
    SPole[x  ,y+1]:=Pered[Pravo];
    SPole[x-1,y  ]:=Pered[Niz  ];
    SPole[x  ,y-1]:=Pered[Levo ]
    end
   else
   begin
    SPole[x+1,y  ,Tip]:=Pered[Verh ,Tip];
    SPole[x  ,y+1,Tip]:=Pered[Pravo,Tip];
    SPole[x-1,y  ,Tip]:=Pered[Niz  ,Tip];
    SPole[x  ,y-1,Tip]:=Pered[Levo ,Tip]
end

- это решение для конкрктного примера.

ошибка происходила из-за заполнения обработанных ячеек необработаными из PPole...

Добавлено через 10 мин.
а ещё: здесь два примера ешения, которые переключаются GOST...