Нарисовать разноцветную мишень- Pascal(Паскаль)

uses graph;
var gd,gm,x0,y0,r,i,h:integer;
begin
gd:=0;
initgraph(gd,gm,'');
x0:=getmaxX div 2;
y0:=getmaxY div 2;
r:=y0-10;
h:=r div 10;
for i:=1 to 10 do
 begin
  Setcolor(i);
  Circle(x0,y0,r);
  Setfillstyle(1,i);
  floodfill(x0,y0,i);
  r:=r-h;
 end;
readln
end.