Вывести на экран n окружностей произвольного радиуса, цвета в точках экрана, выбранных случайным образом-Pascal(Паскаль)

uses graph;
var n,i,x,y,r,c:integer;
begin
randomize;
write('n=');
readln(n);
x:=0;
initgraph(x,y,'');
for i:=1 to n 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.