here code of problem

begin
  read(n);
  i := 0;
  repeat
  inc(i);
  read(a[i]);
  until i = n;
  q := false;

  read(m);
  j := 0;
  q1 := true;
  read(x);
  if x+a[n]<10000 then q1 := false
  else  begin   i := n;
      repeat
        if x+a[i]=10000 then q := true;
        i := i - 1;
      until (i=0) or (x+a[i]<10000);
        end;
  repeat
  inc(j);
  read(x);
  if q1 then
    begin   i := n;
      repeat
      if x+a[i]=10000 then q := true;
      i := i - 1;
      until (i=0) or (x+a[i]<10000);
    end;
  until j = m-1;

  if q then write('YES')
  else write('NO');
end.
I can't find where is my mistake