Цвет прямоугольников - Turbo Pascal

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

Нужно вывести на экран 6 прямоугольников как на картинке но у меня цвет прямоугольников не получается сделать черным как это сделать?

                    Листинг программы
                
 
                        
                          
                    
Uses Graph,Dos,Crt;
  const pat= 'C:\BP\BGI';
 
  Var Gd,Gm,i,x1,x2,n : integer;
 
  Begin
  n:=6;
  Gd:=VGA;  Gm:=VGAHi;
   InitGraph(Gd, Gm, pat );
  SetBkColor(White);
 
 Setcolor(black);
  clrscr;
 
   x1:=10;
   x2:=40;
 
   For i:=1 to n do
   begin
   x1:=x1+60;
   x2:=x2+60;
  Bar(x1,10,x2,120);
   end;
   readln;
   CloseGraph;
  End.

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

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

Uses Graph,Dos,Crt;
const
  pat = 'C:\BP\BGI';
 
var
  Gd, Gm, i, x1, x2, n: integer;
 
begin
  n := 6;
  Gd := VGA;Gm := VGAHi;
  InitGraph(Gd, Gm, pat );
 
  SetBkColor(White);
  ClearDevice;
  SetPalette(Black,0);
  SetFillStyle(SolidFill,Black);
  Setcolor(black);
 
  x1 := 10;
  x2 := 40;
 
  for i := 1 to n do
  begin
    x1 := x1 + 60;
    x2 := x2 + 60;
    Bar(x1, 10, x2, 120);
  end;
  readln;
  CloseGraph;
end.

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

Код использует библиотеки Graph, Dos и Crt.
Константа pat указывает путь к файлу BGI, который, вероятно, содержит графические данные.
Переменные Gd и Gm представляют собой устройства графического вывода, определенные в VGA и VGAHi соответственно.
Функция InitGraph инициализирует графическое устройство, используя указанный путь к файлу BGI.
Установка цвета фона (SetBkColor) устанавливает цвет фона на белый.
Очистка устройства (ClearDevice) очищает текущее устройство перед отрисовкой.
Установка палитры (SetPalette) устанавливает палитру цветов на черный.
Установка стиля заполнения (SetFillStyle) устанавливает стиль заполнения на сплошной.
Установка цвета (Setcolor) устанавливает цвет текста на черный.
Переменные x1, x2 и i представляют собой координаты и счетчик для отрисовки прямоугольников.
Цикл for выполняет отрисовку прямоугольников с координатами x1, x2 и увеличивает счетчик i на 1 для каждой отрисовки.
Координаты x1 и x2 увеличиваются на 60 для каждой итерации цикла.
Функция Bar рисует прямоугольник с заданными координатами верхнего и нижнего краев и высотой 120.
Вызов функции readln ожидает ввода пользователя.
Закрытие графического устройства (CloseGraph) завершает работу с графическим устройством.