графика в Pascal

[DiLemma]

вывести N концентрических кругов. радиус R главного круга задан. радиус внутренних кругов r0 меняется с шагом К. никак не могу сделать вывод шагом помогите, плиз, кто чем сможет

 Program Ornament5;
Uses CRT, Graph;
const
R=190;
var
r0:array[1..180] of integer;
x0,y0,sh,n,i,k:integer;
driver,regim,error: integer;
a,b:word;

Begin
clrscr;
  Detectgraph(driver,regim);
Initgraph(driver,regim,'G:\TP7\BGI');
Error:=GraphResult;
if Error <> grOK then
begin
writeln(GraphErrorMsg(Error));
Halt(Error)
end;

GetAspectRatio(a,b);
x0:=GetMaxX div 2;
y0:=GetMaxY div 2;
SetAspectRatio(GetMaxX-a*x0 div 2,GetMaxY-b*y0);
SetLineStyle(0,0,3);
SetColor(LightGreen);

Circle(x0,y0,R);


readln;
CloseGraph;
End.

[sllh_111]

Перед чем как начертить круг делай задержку, вот и все дела

[DiLemma]

sllh_111,плохо представляю что это будет...

сделала ^_^ может кому пригодится

Program Ornament5;
Uses CRT, Graph;
var
x0,y0,sh,n,i,R:integer;
driver,regim,error: integer;
a,b:word;

Begin
clrscr;
  Detectgraph(driver,regim);
Initgraph(driver,regim,'G:\TP7\BGI');
Error:=GraphResult;
if Error <> grOK then
begin
writeln(GraphErrorMsg(Error));
Halt(Error)
end;
readln(n);
GetAspectRatio(a,b);{коэффициент сжатия }
x0:=GetMaxX div 2;{центр}
y0:=GetMaxY div 2;
R:=190;
Sh:=R div n;{шаг уменьшения радиуса}
SetAspectRatio(GetMaxX-a*x0 div 2,GetMaxY-b*y0);{переназначение коэффициента сжатия }
SetLineStyle(0,0,3);
SetColor(LightGreen);
Circle(x0,y0,R);
for i:=1 to n do begin
Circle(x0,y0,R);
R:=R-Sh;{новый радиус}
end;
readln;
CloseGraph;
end.