Составить программу для подсчета количества точек попавших в заданную область

uses crt;
const nmax=100;
type point=record
           x,y:real;
           k:byte
           end;
var a,b:array[1..nmax] of point;
    n,m,i:integer;
begin
clrscr;
randomize;
repeat
write('Количество исходных точек до ',nmax,' n=');
readln(n);
until n in [1..nmax];
for i:=1 to n do
 begin
  a[i].x:=-2+4*random;
  a[i].y:=-2+4*random;
  a[i].k:=i
 end;
writeln('Исходные точки:');
for i:=1 to n do
write(i:3,'(',a[i].x:5:2,';',a[i].y:5:2,')    ');
writeln;
m:=0;
for i:=1 to n do
if(sqr(a[i].x)+sqr(a[i].y)<=4)and((a[i].x<=0)and(a[i].y<-sqrt(1-sqr(a[i].x+1))))
or((a[i].x>=0)and(a[i].y>=sqrt(1-sqr(a[i].x-1))))then
 begin
  m:=m+1;
  b[m]:=a[i];
 end;
if m=0 then write('Ни одна точка не попала')
else
 begin
  writeln('Попало ',m,' точек, это');
  for i:=1 to m do
  write(b[i].k:3,'(',b[i].x:5:2,';',b[i].y:5:2,')    ');
 end;
readln
end.