Процедура TextBackground(color: byte) установит цвет фона.
Процедура TextColor(color: byte) установит цвет выводимого текста.
Замечание: Вместо номера цвета возможно использовать соответствующую константу (см. табл. 14.1).
black | 0 | Черный | darkgray | 8 | Темно-серый |
blue | 1 | Синий | lightblue | 9 | Ярко-синий |
green | 2 | Зеленый | lightgreen | 10 | Ярко-зеленый |
cyan | 3 | Голубой | lightcyan | 11 | Ярко-голубой |
red | 4 | Красный | lightred | 12 | Розовый |
magenta | 5 | Фиолетовый | lightmagenta | 13 | Ярко-фиолетовый |
brown | 6 | Коричневый | yellow | 14 | Желтый |
lightgray | 7 | Светло-серый | white | 15 | Белый |
Помимо этого, можно использовать константу blink = 128 (мерцание).