Написать программу, которая вычерчивает на экране узор из 100 окружностей случайного диаметра и цвета — Pascal(Паскаль)

uses graph;
var n,i,x,y,r,c:integer;
begin
randomize;
x:=0;
initgraph(x,y,'');
for i:=1 to 100 do
 begin
  r:=random(100)+20;
  x:=random(getmaxX-2*r)+r;
  y:=random(getmaxY-2*r)+r;
  c:=random(15)+1;
  setcolor(c);
  Circle(x,y,r);
 end;
readln
end.