问一下 大牛

为什么我 交4重循环的程序 一直run不出来啊。

program bomb;

var a:array[1..100,1..100]of char;

max,i1,j1,s,n,m,i,j,tot:longint;

begin

readln(m);

readln(n);

tot:=0;

for i:=1 to m do

begin

for j:=1 to m do

begin

read(a);

if a='#' then inc(tot);

end;

readln;

end;

if n=0 then writeln(0);

if n>=m then writeln(tot)

else

begin

max:=0;

for i:=1 to m-n+1 do

for j:=1 to m-n+1 do

begin

s:=0;

for i1:=i to i+n-1 do

for j1:=j to j+n-1 do

if a[i1,j1]='#' then inc(s);

if s>max then max:=s;

end;

writeln(max);

end;

end.