OJ Board

What a silly mistake....
Thank you very much

I added line fillchar(w,sizeof(w),false);
And got AC

Cant find the problem... I'm always getting WA...

const maxn = 100;

var a : array [0..maxn,0..maxn] of integer;
q,l : array [0..maxn*maxn] of integer;
c,n,i,x,y,st,max,maxi,t,j,yk,yp,cur : integer;
w : array [0..maxn+1,0..maxn+1] of boolean;
h : boolean;

begin
{ assign(input,'input.txt ...