Somebody!! help!! why mle



label 1;
type
  coor=record
    x,y:integer;
  end;
var
a,b:array [0..1001,0..1001] of boolean;
i,j:integer;
n,m,xc,yc:integer;
k1,k2,k:longint;
s:string;
c,d:array [1..4000] of coor;

begin
fillchar(a,sizeof(a),false);
readln(m,n);
for i:=1 to n do begin
readln(s);
for j:=1 to m do
   if s[j]='#' then a[i,j]:=false else a[i,j]:=true;
end;
b:=a;

xc:=1001;
yc:=1001;
for i:=1 to n do
  for j:=1 to n do
    if a[i,j]=true then begin
    xc:=i;
    yc:=j;
    goto 1;
    end;
1:
if xc=1001 then begin
writeln(0);
halt;
end;

a[xc,yc]:=false;
k1:=1;
c[1].x:=xc;
c[1].y:=yc;
repeat
k2:=0;
for i:=1 to k1 do begin
if a[c[i].x+1,c[i].y] then begin
inc(k2);
d[k2].x:=c[i].x+1;
d[k2].y:=c[i].y;
a[c[i].x+1,c[i].y]:=false;
end;

if a[c[i].x,c[i].y+1] then begin
inc(k2);
d[k2].x:=c[i].x;
d[k2].y:=c[i].y+1;
a[c[i].x,c[i].y+1]:=false;
end;

if a[c[i].x-1,c[i].y] then begin
inc(k2);
d[k2].x:=c[i].x-1;
d[k2].y:=c[i].y;
a[c[i].x-1,c[i].y]:=false;
end;

if a[c[i].x,c[i].y-1] then begin
inc(k2);
d[k2].x:=c[i].x;
d[k2].y:=c[i].y-1;
a[c[i].x,c[i].y-1]:=false;
end;

end;

if k2=0 then break;
k1:=k2;
c:=d;
until false;










a:=b;
xc:=c[1].x;
yc:=c[1].y;
k:=0;

a[xc,yc]:=false;
k1:=1;
c[1].x:=xc;
c[1].y:=yc;
repeat
k2:=0;
for i:=1 to k1 do begin
if a[c[i].x+1,c[i].y] then begin
inc(k2);
d[k2].x:=c[i].x+1;
d[k2].y:=c[i].y;
a[c[i].x+1,c[i].y]:=false;
end;

if a[c[i].x,c[i].y+1] then begin
inc(k2);
d[k2].x:=c[i].x;
d[k2].y:=c[i].y+1;
a[c[i].x,c[i].y+1]:=false;
end;

if a[c[i].x-1,c[i].y] then begin
inc(k2);
d[k2].x:=c[i].x-1;
d[k2].y:=c[i].y;
a[c[i].x-1,c[i].y]:=false;
end;

if a[c[i].x,c[i].y-1] then begin
inc(k2);
d[k2].x:=c[i].x;
d[k2].y:=c[i].y-1;
a[c[i].x,c[i].y-1]:=false;
end;

end;

if k2=0 then break;
inc(k);
k1:=k2;
c:=d;
until false;
writeln(k);
readln;
readln;
end.

Your program used two arrays 1001x1001=>Data size>2000KB=>MLE

But it is boolean

>a,b:array [0..1001,0..1001] of boolean;

Boolean type is stored as a byte.
>Boolean 1 byte
>ByteBool 1 byte
>Wordbool 2 bytes
>Longbool 4 bytes
You can easily  found this info in FreePascal help.

ha.
I Thought boolean is 1/8 byte.
Thank you

You should use bits (1/8 byte) to store this array so
you will need only 1000000/8 bytes per array

Edited by author 10.07.2004 14:55

Pascal doesn't have type which uses less than 1 byte
but you can store bits by : shl,shr,or,and,xor,not...

>Pascal doesn't have type which uses less than 1 byte
>but you can store bits by : shl,shr,or,and,xor,not...

Who can explain as it to make?
I use 2 array [1..1000,1..1000] but ML