Susjedne nule

{
    0 0 0 1 1 0 0 0 1 0 1 0
    0 0 1 0 0 0 1 1 0 0 1 0
    0 1 0 1 0 1 0 0 1 0 1 0
    1 0 1 0 0 1 0 0 1 0 0 0
    1 0 1 0 0 0 0 1 0 1 0 1
    1 1 0 1 0 1 1 0 1 0 1 0

    susjedna polja nula
    (ovdje ih ima 10)

    2 2 2 1 1 3 0 0 1 0 1 0
    2 2 1 0 0 0 1 1 0 0 1 0
    2 1 0 1 0 1 0 0 1 0 1 0
    1 0 1 0 0 1 0 0 1 0 0 0
    1 0 1 0 0 0 0 1 0 1 0 1
    1 1 0 1 0 1 1 0 1 0 1 0
}

program nule;
type
    niz=array[1..20]of integer;
    matrica=array[1..20]of niz;
var
    br,m,n,i,j,rez,k,max,broj:integer;
//  x,y,z:niz;
    a,b,c:matrica;

procedure UnosMatrice(var m,n:integer; var a:matrica);
var i,j:integer;
begin
    write('Broj vrsta: ');
    readln(m);
    write('Broj kolona: ');
    readln(n);
    for i:=1 to m do
    begin
        for j:=1 to n do
        begin
        write('A[',i,';',j,']= ');
        readln(A[i,j]);
        writeln;
        end;
    end;
end;


procedure StampaMatrice(m,n:integer; A:matrica);
var i,j:integer;
begin
    writeln;
    for i:=1 to m do
    begin
        for j:=1 to n do
        begin
        write(A[i,j]:4);
        end;
        writeln;
    end;
    writeln;
end;

procedure popunjavanje(m,n,i,j,broj:integer; var a:matrica);
begin
    a[i,j]:=broj;
    br:=br+1;
    if (j<n) then if a[i,j+1]=0 then popunjavanje(m,n,i,j+1,broj,a);
    if (i<m) then if a[i+1,j]=0 then popunjavanje(m,n,i+1,j,broj,a);
    if (j>1) then if a[i,j-1]=0 then popunjavanje(m,n,i,j-1,broj,a);
    if (i>1) then if a[i-1,j]=0 then popunjavanje(m,n,i-1,j,broj,a);
end;


begin
UnosMatrice(m,n,a);
StampaMatrice(m,n,a);
broj:=1; max:=0;
for i:=1 to m do
    for j:=1 to n do
    begin
    if a[i,j]=0 then
        begin
        br:=0;
        broj:=broj+1;
        popunjavanje(m,n,i,j,broj,a);
        if (br>max) then
            begin
            max:=br;
            rez:=broj;
            end;
        end;
    end;
StampaMatrice(m,n,a);
writeln;
writeln(max:8,rez:8);
readln;
end.