Прямоугольники. Закончить программу - Free Pascal

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

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

program nogriezni;
uses graph, crt;
var a,b:integer;
color:byte;
 
begin
a:=detect;
InitGraph(a,b,'c:\tp\bgi');
randomize;
repeat
setcolor(random(15));
SetFillStyle(EmptyFill,6);
rectangle(random(630), random(470), random(630), random(470));
delay(50);
until keypressed;
readln;
closegraph;
end.

Решение задачи: «Прямоугольники. Закончить программу»

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

program nogriezni;
uses graph;
var a,b:integer;
begin
initgraph(a,b,'');
randomize;
for a:=1 to 50 do
 begin
  b:=1+random(15);
  setcolor(b);
  setfillstyle(1,b);
  bar(random(630), random(470), random(630), random(470));
 end;
readln
end.

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

Объявлены две переменные a и b типа integer.
Вызвана функция initgraph(a, b, ''), где a и b — параметры функции, а ''' — пустая строка.
Вызвана функция randomize.
Запущен цикл for, который выполняется 50 раз.
Внутри цикла переменная b инициализируется значением 1 + random(15).
Устанавливается цвет заливки и контура (setcolor(b) и setfillstyle(1, b)).
Вызывается функция bar(random(630), random(470), random(630), random(470)), которая рисует прямоугольник.
После выполнения всех 50 итераций цикла, программа ожидает ввода пользователя с помощью функции readln.
Программа завершается.