графика (срочно нужна помошь)

uses crt,graph;
type Point=record
           x,y:real;
           end;
procedure Prin(t:point;r1,r2:real;var f:boolean);
begin
f:=(sqr(t.x)+sqr(t.y)>r1*r1)and(sqr(t.x)+sqr(t.y)<r2*r2);
end;
var xc,yc:integer;
    a:array[1..1000] of point;
    r1,r2:real;
    n,i,m,k:integer;
    f:boolean;
    s:string;
begin
clrscr;
repeat
write('Kol.tochek do 1000 n=');
readln(n);
until(n>0)and(n<=1000);
repeat
writeln('Vvedite radiusy kolca ot 5 do 20 r2>r1:');
readln(r1,r2);
until(r1>=5)and(r2>r1)and(r2<=20);
for i:=1 to n do
 begin
  a[i].x:=60*random-30;
  a[i].y:=40*random-20;
 end;
xc:=0;
initgraph(xc,yc,'');
xc:=getmaxX div 2;
yc:=getmaxY div 2;
m:=10;
circle(xc,yc,round(m*r1));
circle(xc,yc,round(m*r2));
k:=0;
for i:=1 to n do
 begin
  Prin(a[i],r1,r2,f);
  if f then
   begin
    setcolor(12);
    k:=k+1;
   end
  else setcolor(10);
  circle(xc+round(a[i].x*m),yc-round(a[i].y*m),1);
 end;
str(k,s);
outtextXY(xc-80,getmaxY-30,'Kol. tochek v kolce='+s);
readln
end.