Bывести на экран множество случайных окружностей

uses graph,crt;
var rx1,rx2,ry1,ry2, cx,cy,r,gd,gm:integer;
begin
initgraph(gd,gm,'');
repeat
 r:=random(50);
 if r mod 2=0 then begin
 cx:=random(600);
 cy:=random(400);
 r:=random(200);
 circle(cx,cy,r);
 end
 else begin
 while rx1>=rx2 do begin
 rx1:=random(600);
 rx2:=random(680);
 end;
 while ry1>=ry2 do begin
 ry1:=random(400);
 ry2:=random(480);
 end;
 rectangle(rx1,ry1,rx2,ry2);
 end;
 delay(500);
 clrscr;
until keypressed;
end.

uses graph,crt;
var gd,gm,i,cx,cy,r,a,b:integer;
begin
initgraph(gd,gm,'');
repeat
for i:=1 to 20 do
 begin
  setcolor(random(15)+1);
  r:=random(30)+20;
  cx:=random(getmaxX-2*r)+r;
  cy:=random(getmaxY-2*r)+r;
  circle(cx,cy,r);
 end;
delay(2000);
cleardevice;
for i:=1 to 20 do
 begin
  setcolor(random(15)+1);
  a:=random(100)+50;
  b:=random(100)+50;
  cx:=random(getmaxX-a)+1;
  cy:=random(getmaxY-b)+1;
  rectangle(cx,cy,cx+a,cy+b);
 end;
delay(2000);
cleardevice;
until keypressed;
end.