Определить попадание точки в заданный диапазон. Опции

[Eduard]

uses crt;
var a,b,r,x,y,N,z:real;
  begin
    clrscr;
    Write ('Vvedite kol-vo probnyh tochek   ');
    readln(N);
    writeln('Vvedite radius okuzhnosti');
    readln ®;
    writeln ('Vvedite krainuyuy x pryam.');
    readln(a);
    writeln ('Vvedite krainuyuy y pryam.');
    readln(b);
    z:=1;
    while z<=N DO
      BEGIN
       z:=z+1;
       Writeln ('Vvedite x i y');
       readln(x,y);
     END;
     writeln;
     repeat
       begin
         z:=z+1;
         if (x<0) and (x>(-a)) and (y<0) and (sqrt(sqr(x)+sqr(y))<=r) then
           writeln (x:2:2,'  ',y:2:2,'  ','Popapla')
         else
           if (x>0) and (x<a) and (y>0) and (sqrt(sqr(x)+sqr(y))>=r) then
             writeln (x:2:2,'  ',y:2:2,'  ','Ne popala')
           else writeln (x:2:2,'  ',y:2:2,'  ','Ne popala');
       end;
     UNTIL z=N;
    readkey;
  end.

Второй цикл выполняется только для одной пары x и y. Что неправильно?