Написать программу, помещающая 4 круга в квадрат — Pascal(Паскаль)

uses graph;
var gd,gm,x0,y0,a,d,i,x,y,r:integer;
begin
randomize;
write('Storona kvadrata=');
readln(a);
gd:=detect;
initgraph(gd,gm,'');
{центр экрана}
x0:=GetmaxX div 2;
y0:=Getmaxy div 2;
{квадрат}
Setcolor(12);
d:=a div 2;
Rectangle(x0-d,y0-d,x0+d,y0+d);
{4 окружности}
for i:=1 to 4 do
 begin
  repeat
   x:=random(a+1)+x0-d;
   y:=random(a+1)+y0-d;
   r:=random(d)+d div 2;
  until (x-r>=x0-d)and(x+r<=x0+d)and(y-r>=y0-d)and(y+r<=y0+d);
  Setcolor(i);
  Circle(x,y,r);
 end;
readln
end.