Дан круг с координатами центра xr, yr и радиусом r. Дана точка M с координатами xm, ym. Необходимо построит круг и с помощью генератора случайных чисел заполнить круг точками — Pascal(Паскаль)

uses crt, graph;
var dr,md: integer;
    xm,ym :longint; {T. M(xm,ym)}
    xr, yr,r:longint; {Circle(xr,yr,r)}
    i,j:integer;
 
begin
     clrscr;
     dr:=detect;
     initgraph(dr,md,'G:\bp\bgi');
     xr:= GetMaxX div 2;
     yr:= GetMaxY div 2;
     R:= yr-(xr-yr) div 2;
     circle(xr,yr,r);
     randomize;
     for i:=1 to 10000 do
      begin
       xm:=random(2*r)-r;
       ym:=random(2*r)-r;
       if sqr(R)>= sqr(xm)+sqr(ym) then
       putpixel(xm+xr,ym+yr,red);
       end;
     readln;
end.