Поиск в глубину

[Nicko_mt]

Доброго времени суток.Возник вопрос по реализации алгоритма поиска вглубину.

program l;
const r=100;c=100;
var i,j,n,m:integer;
a1:text;
a:array[1..r,1..c] of integer;
procedure search(i,j:integer);
begin
for i:=1 to n do begin
for j:=1 to n do begin
a[i,j]:=1;
if ((i >= 0) and (i < n) and (j >= 0) and (j < n))
 then
if (a[i,j]=0)  then
                    a[i,j]:=1;
                    search(i+1,j);
                    search(i-1, j);
                    search(i,j + 1);
                    search(i,j - 1);

                    end;end;
end;
begin
n:=3;
 assign(a1,'c:\massiv.txt');
 reset(a1);
 for i:=1 to n do begin
 for j:=1 to n do begin
read(a1,a[i,j]);
write(a[i,j],'   ');
end;
writeln;
end;
search(0,1);
for i:=1 to n do begin
for j:=1 to n do begin
write(a[i,j],'   ');
end;
writeln;
end;
readln;
close(a1);
end.

Вводится массив из файла.
0 0 0
0 2 0
2 0 0

Признак того что заполнена клетка это 1 признак пустоты 0.Только почему то когда передаю пару индексов идёт переполнение стека.
Взгляните пожалуйста и укажите на ошибку если сможете.Заранее благодарен.

[TinMan]

Сообщение от Nicko_mt

Взгляните пожалуйста и укажите на ошибку если сможете

А если не сможем - не указывать? ))

Возьми вот этот блок операторов:

                    a[i,j]:=1;
                    search(i+1,j);
                    search(i-1, j);
                    search(i,j + 1);
                    search(i,j - 1);

- в скобки begin/end.

ФОРМАТИРУЙ свои коды. Неужели хочется вот так тупо искать элементарную ошибку, которая находится за секунду в правильно форматированном коде?? Эх, чему вас только учат..

[Nicko_mt]

Огромное спасибо за указание.А ошибка и впраду идиотская.Просто в основном на c подобных писал.А они менеее восприимчивы.Вот решил вспомнить прошлое и о строгости указания подзабыл.