Помогите с проверкой на окружение

[Roman_DevilRigoll]

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

[Serge_Bliznykov]

И в чём, собственно, вопрос?
Где Ваш код(проект)?

[Roman_DevilRigoll]

function okruzeniesprava(i,j:integer):boolean;
    var l,k,e: integer;
    Begin
    if hod = 2 then
      e := 2
    else e := -2;
      okruzeniesprava := true;
      if poler[i,j] = -1 then
      begin
      for l := i-1 to i+1  do
        for k := j-1 to j+1 do
          Begin
             if ((l = i+1) and (k = j)) or ((l = i-1) and (k = j)) or
                 ((l = i) and (k = j-1)) or ((l = i) and (k = j+1)) then
                Begin
                   if poler[l,k] = 0 then
                       okruzeniesprava := false
                   else if poler[l,k] = e/2 then
                       okruzeniesprava(l,k);
                End;
          End;
       end;
    End;

не понимаю почему не работает



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

Суть этой функции в том, чтобы найти окружения двигаясь право, влево, низ, верх в матрице, а если натыкалась на 0 то возвращала false