ac不了，不久是个拦导弹吗？怎么回事？

---|---|---|---|---|---|---|---|---|

var max,j,n,m,k,i:longint;x,y,f:array[0..1000]of longint;

begin

readln(n,m);

readln(k);

fillchar(x,sizeof(x),0);

fillchar(y,sizeof(y),0);

for i:=1 to k do f[i]:=1;

for i:=1 to k do

begin

readln(x[i],y[i]);

end;

max:=0;

for i:=1 to k do

for j:=1 to k do if ij then

begin

if (x[i]>x[j])and(y[i]>y[j])and(f[i]