Помогите переписать из кода Pascal в C++ Builder

[irisha3581]

Очень нужна ваша помощь и понимание...
Задача:
Разработать приложение, рисующее на экране круги со случайным расположением центра, случайным размером радиуса (но не превышающим определённого размера) и случайным цветом. При наложении кругов друг на друга их цвет не должен меняться.

uses graph,crt;
var n,mx,i,x,y,r,c:integer;
begin
clrscr;
randomize;
repeat
write('Kol. krugov do 100 n=');
readln(n);
until n in [1..100];
repeat
write('Max. radius krugov do 200 n=');
readln(mx);
until n in [1..mx];
x:=0;
initgraph(x,y,'');
for i:=1 to n do
 begin
  r:=random(mx-20)+20;
  x:=random(getmaxX-2*r)+r;{чтобы не вылезали за экран}
  y:=random(getmaxY-2*r)+r;
  c:=random(15)+1;
  setcolor(c);
  Circle(x,y,r);
  setfillstyle(1,c);{если закрашенные,только если накладываются 2 одного цвета, то один не закрашивается полностью}
  floodfill(x,y,c);
 end;
readln
end.

[BizCray]

Есть много аналогичных примеров. Зачем именно этот код?