一般的整数数组都不用加的啊。。求大神区分一下。。
var
m,n,c,max,i,j,k,l:longint;
a:array[1..10000,1..10000] of char;
begin
readln(m);
readln(n);
c:=0;
max:=0;
for i:=1 to m do
begin
for j:=1 to m do
read(a[i,j]);
readln; //这里不加过不了
end;
for i:=1 to m-n+1 do
for j:=1 to m-n+1 do
begin
for k:=i to i+n-1 do
for l:=j to j+n-1 do
if a[k,l]='#' then inc(c);
if c>max then max:=c;
c:=0;
end;
writeln(max);
end.