Graph: процедура, постепенно рисующая непересекающиеся круги разного цвета на сторонах квадрата, расположенного в центре экрана

uses graph,crt;
procedure Krugi(xc,yc,d:integer);
var r,x,y,c,i:integer;
begin
rectangle(xc-d,yc-d,xc+d,yc+d);
r:=d div 3;
for i:=1 to 12 do
 begin
  c:=i+1;
  setcolor(c);
  case i of
  1..3:begin
       x:=xc-d+2*(i-1)*r;
       y:=yc-d;
       end;
  4..6:begin
       x:=xc+d;
       y:=yc-d+2*(i-4)*r;
       end;
  7..9:begin
       x:=xc+d-2*(i-7)*r;
       y:=yc+d;
       end;
  10..12:begin
       x:=xc-d;
       y:=yc+d-2*(i-10)*r;
       end;
  end;
  circle(x,y,r);
  delay(1000);
 end;
end;
var g,d,xc,yc:integer;
begin
d:=0;
initgraph(g,d,'put k BGI');
xc:=getmaxX div 2;
yc:=getmaxY div 2;
settextstyle(2,0,1);
outtextXY(xc-150,20,'Программа рисует непересекающиеся круги');
outtextXY(xc-180,40,'разного цвета на сторонах квадрата в центре экрана');
outtextXY(xc-80,60,'автор Иванов Иван Иванович');
outtextXY(xc-70,80,'Нажмите любую клавишу');
readkey;
Krugi(xc,yc,90);
setcolor(14);
settextstyle(2,0,1);
outtextXY(xc-70,yc+150,'Нажмите любую клавишу');
readkey
end.