Нарисовать сетку из пересекающихся окружностей разного цвета - PascalABC.NET

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

Нарисовать сетку из пересекающихся окружностей разного цвета, размером nхn, для n введённого с клавиатуры. На паскале абс.

и еще с циклами FOR WHILE REPEAT

Решение задачи: «Нарисовать сетку из пересекающихся окружностей разного цвета»

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

uses GraphABC;
var n,r,i,j,x,y:integer;
begin
write('n=');
readln(n);
r:=20;
setwindowsize((n+1)*r,(n+1)*r);
clearwindow;
centerwindow;
setbrushstyle(bsClear);
y:=r;
for i:=1 to n do
 begin
  x:=r;
  for j:=1 to n do
   begin
    setpencolor(clrandom);
    circle(x,y,r);
    x:=x+r;
   end;
  y:=y+r;
 end; 
 
end.

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

Объявление переменных: n, r, i, j, x, y: integer;
Ввод значения переменной n с помощью функции readln()
Инициализация переменной r значением 20
Установка размера окна с помощью функции setwindowsize()
Очистка окна с помощью функции clearwindow()
Центровка окна с помощью функции centerwindow()
Установка стиля кисти на bsClear с помощью функции setbrushstyle()
Инициализация переменной y значением r
Первый внутренний цикл начинается с i = 1 и продолжается до i = n, то есть до тех пор, пока не будет достигнуто конечное значение n
Второй внутренний цикл начинается с j = 1 и продолжается до j = n, то есть до тех пор, пока не будет достигнуто конечное значение n
В обоих внутренних циклах устанавливается случайный цвет пера с помощью функции setpencolor()
Вызывается функция circle(), которая рисует окружность с центром в точке x, y радиусом r
Значение x увеличивается на r после каждой итерации второго внутреннего цикла
После завершения второго внутреннего цикла значение переменной y увеличивается на r
После завершения первого внутреннего цикла значение переменной n не изменяется
После завершения второго внутреннего цикла значение переменной n не изменяется
Код завершается после завершения второго внутреннего цикла
Код не содержит обработки ошибок или исключений
Код не содержит использования модуля GraphABC
Код не содержит вызовов функций setfillstyle, setlinestyle или settextjustify