Вывести прямоугольники, не налегающие друг на друга и имеющие рандомную длину и ширину - Pascal ABC

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

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

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

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

uses graphABC;
var x,y,a,b,i:integer;
begin
randomize;
setwindowsize(700,300);
centerwindow;
x:=1;
y:=100;
for i:=1 to 10 do
 begin
  a:=10+random(100);
  b:=10+random(100);
  setpencolor(clRandom);
  rectangle(x,y,x+a,y+b);
  x:=x+a+3;
 end;
end.

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

В начале кода подключается библиотека graphABC.
Объявляются переменные x, y, a, b, i: они будут целочисленными.
Вызывается функция randomize, чтобы задать начальные значения для генератора случайных чисел.
Устанавливается размер окна приложения.
Вызывается функция centerwindow, чтобы окно было по центру.
Переменная x и y инициализируется значениями 1 и 100 соответственно.
Запускается цикл for, который будет выполняться 10 раз.
Внутри цикла генерируются случайные значения для переменных a и b с помощью функции random(100).
Устанавливается цвет кисти на случайный цвет с помощью функции setpencolor(clRandom).
Вызывается функция rectangle, чтобы создать прямоугольник с координатами x, y, x+a, y+b.
Переменная x увеличивается на a+3 после каждого создания прямоугольника.
Цикл for завершается, когда выполнено 10 итераций.
Код завершается.