为什么只有50分？

var
n,i,j,l,x,y:longint;
a:array[1..100000,1..4] of longint;
begin
readln(n);
for i:=1 to n do
readln(a[i,1],a[i,2],a[i,3],a[i,4]);
readln(x,y);
for i:=1 to n  do
if (a[i,1]<=x) and (a[i,2]<=y) and (a[i,1]+a[i,3]>=x) and (a[i,2]+a[i,4]>=y) then
begin
writeln(i);
 halt;
  end;
     writeln(-1);
end.