Цикл Repeat.until - PascalABC.NET

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

Помогите пожалуйста нарисовать круги в цикле Repeat...until, никак не разберусь. В цикле For все получилось.

Решение задачи: «Цикл Repeat.until»

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

uses graphABC;
var d,x,y:integer;
begin
setwindowsize(500,500);
centerwindow;
d:=20;
y:=d;
repeat
x:=d+10;
repeat
circle(x,y,10);
x:=x+d+10;
until x>=windowwidth-d;
y:=y+d+10;
until y>=windowheight-d;
end.

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

В начале кода подключается библиотека GraphABC.
Затем объявляются три переменные: d, x, y типа integer.
Устанавливается размер окна 500x500 пикселей.
Окно центрируется.
Значение переменной d устанавливается равным 20.
Значение переменной y устанавливается равным d.
Запускается цикл repeat, который будет выполняться до тех пор, пока не изменится значение переменной d.
Внутри цикла переменная x устанавливается равной d+10.
Запускается второй цикл repeat, который будет выполняться до тех пор, пока значение переменной x не станет больше (windowwidth-d) на 10 пикселей.
Внутри второго цикла рисуется окружность с радиусом 10 пикселей.
Значение переменной x увеличивается на d+10.
После окончания второго цикла значение переменной y увеличивается на d+10.
Пока значение переменной y не станет больше (windowheight-d) на 10 пикселей, продолжается выполнение первого цикла.
После окончания первого цикла значение переменной d увеличивается на 1.
Цикл повторяется, начиная с шага 7.
После достижения значения переменной d=21, цикл прекращается.
Код завершается.