Проверить попадание случайных и заданых пользователем точек в окружность?

const
      a=14;
      b=29;
      r=27;
    begin
     SetWindowSize(840, 600);
      randomize;
      t:=0;
      w:=10;
      f:=0;
    
    Coordinate.Origin:=new Point(20,120);
      for i:=1 to 15 do 
          begin
     if i=1 then
        begin
    
         Coordinate.Origin:=new Point(10,110);
           readln(x[1],y[1]);
        end;
            s[i]:=chr(64+i);
            x[i+1]:=(-30+(34+30)*random);
            y[i+1]:=(-35+(34+35)*random);
            writeln(s[i],'(', x[i]:3:0, ';',y[i]:3:0,')');
            if (x[i]*x[i]+y[i]*y[i]<=r*r) and (x[i]>=0) or
               (x[i]*x[i]+y[i]*y[i]<=r*r) and (x[i]<=-4) or
               (x[i]*x[i]+y[i]*y[i]<=r*r) and (x[i]<=0) and (y[i]<=round(-b/2)) or
               (x[i]*x[i]+y[i]*y[i]<=r*r) and (x[i]<=0) and (y[i]<=round(b/2))
            then t:=t+1;
            if (x[i]*x[i]+y[i]*y[i]>r*r) then begin 
               TextOut(65, f, ' - точка за границей окружности');
               f:=f+16;
            end
               else if (x[i]*x[i]+y[i]*y[i]=r*r) then begin 
                  TextOut(65, f, ' - точка попала на внешнюю границу');
                  f:=f+16; 
               end
               else if (x[i]*x[i]+y[i]*y[i]<=r*r) and (x[i]>=0) or
                       (x[i]*x[i]+y[i]*y[i]<=r*r) and (x[i]<-14) or
                       (x[i]*x[i]+y[i]*y[i]<=r*r) and (x[i]<=0) and (y[i]<round(-b/2)) or
                       (x[i]*x[i]+y[i]*y[i]<=r*r) and (x[i]<=0) and (y[i]=round(b/2))
                       then begin
                            TextOut(65, f, ' - точка попала на внутреннюю границу');
                            f:=f+16;
                            end
                       else begin
                            TextOut(65, f, ' - точка попала за внутреннюю границу');
                            f:=f+16;
                            end
             end;   
         writeln();
         writeln('Всего точек попало: ', t);
         writeln('Всего точек не попало: ', 15-t);