Составьте программу которая рисует 10 окружностей с одним центром внтри)

В общем, у меня Pascal ABC стоит, примерно 10 окружностей с центром внутри будут выглядеть так :
program krug;
uses graphabc;
var i:integer;
begin
setpencolor (clblack);
for i:=109 downto 1 do begin
i:=i-9 ;
circle (100,100,i);
end;
end.