Написать программу, которая рисует круги меньшего размера внутри кругов и с разным цветом - PascalABC.NET

Формулировка задачи:

Здравствуйте, хочу написать программу, которая рисует круги меньшего размера внутри кругов и с разным цветом, но программа не выводит вообще ничего. В чем проблема ?

uses GraphABC;
var a,b,c:integer;
procedure circ(n,r:integer); //процедура , отрисовывающая круги разного цвета и уменьшающая их.
  begin
    if n>10 then 
      begin
      randomize;
      a:=random(0,256);//задаю значение цвета
      b:=random(0,256);
      c:=random(0,256);
      Circle(200,200,r);//рисую круг
      setbrushcolor(rgb(a,b,c));//заливаю круг
      circ(n-1,r-10);//вызываю эту процедуру снова
  end;
end;
 
begin
  circ(10,100);//n - количетсво раз, r - радиус.
end.

Решение задачи: «Написать программу, которая рисует круги меньшего размера внутри кругов и с разным цветом»

Листинг программы

uses GraphABC;
var a,b,c:integer;
procedure circ(n,r:integer); //процедура , отрисовывающая круги разного цвета и уменьшающая их.
begin
if n>0 then
 begin
  a:=random(256);//задаю значение цвета
  b:=random(256);
  c:=random(256);
  setbrushcolor(rgb(a,b,c));//заливаю круг
  Circle(windowwidth div 2,windowheight div 2,r);//рисую круг
  circ(n-1,r-r div n);//вызываю эту процедуру снова
 end;
end;
 
begin
randomize;
circ(15,200);//n - количество раз, r - радиус.
end.

Объяснение кода листинга программы

uses GraphABC; - подключаем модуль GraphABC для работы с графикой
var a,b,c:integer; - объявляем три переменные типа integer для хранения цветов
procedure circ(n,r:integer); - объявляем процедуру с двумя параметрами n и r типа integer
begin - начало выполнения процедуры
if n>0 then - проверяем, что значение n больше нуля
begin - начало условного блока
a:=random(256); - присваиваем случайное значение от 0 до 255 переменной a (цвет)
b:=random(256); - присваиваем случайное значение от 0 до 255 переменной b (цвет)
c:=random(256); - присваиваем случайное значение от 0 до 255 переменной c (цвет)
setbrushcolor(rgb(a,b,c)); - устанавливаем цвет кисти равным произвольному цвету, полученному на предыдущих шагах
Circle(windowwidth div 2,windowheight div 2,r); - рисуем круг с центром в середине окна и радиусом r
circ(n-1,r-r div n); - вызываем процедуру circ рекурсивно с новыми значениями n и r
end; - конец условного блока
end; - конец процедуры
begin - начало главного блока программы
randomize; - инициализируем генератор случайных чисел
circ(15,200); - вызываем процедуру circ с заданными значениями n=15 и r=200
end; - конец главного блока программы
. - символ конца файла
. - символ конца файла