Задать цвет для части фона

program Project1;
uses
  CRT;
var
 str: string; //  Переменная для хранения текста.
 i: integer;  // Вспомогательная переменная для организации цикла.
 color1, color2: Byte; // Переменные для хранения значения цвета.
begin
  Randomize;
  str:= 'Color text.'; // Исходный текст.
  for i:= 1 to 20 do         // Цикл для повторения  кода 20 раз
    begin
      Color1:= random(16); // Присвоить первой переменной цвета случайное значение.
      Color2:= random(16); // Присвоить второй переменной цвета случайное значение.
      Textbackground(color1); // Изменить цвет фона текста на цвет, заданный первой переменной.
      TextColor(color2);  //  Изменить цвет самого текста на цвет, заданный второй переменной.
      writeln(str);          //  Вывести цветной текст на экран.
    end;
 
  readln;
end.

program Project1;
uses
  CRT;
begin
  Randomize;
  Textbackground(Random(16));
  Window(2, 2, 40, 10);
  ClrScr;
  Window(1, 1, 80, 25); // возвращаем полноразмерное окно назад
  readln;
  textattr := 7; // цвета по умолчанию в консоли - серый на черном фоне, чтобы после завершения программы пользователи не ругались...
end.