Нарисовать «мишень»,т.е. нарисовать 10 концентрических кругов разных цветов и радиусов — 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//10 раз
 begin
  Setcolor(i);//новый цвет
  Circle(x0,y0,r);//окружность
  Setfillstyle(1,i);//закрасить выбранным цветом
  floodfill(x0,y0,i);//точка начала закраски в центре
  r:=r-h;//новый радиус
 end;
readln
end.