procedure TextBackGround(Цвет: byte);Действие: Задает цвет фона сообщений, выводимых инструкциями write и writein. В качестве параметра цвет может использоваться одна из перечисленных ниже именованных констант.
| Константа | Цвет | Номер цвета |
| Black | Черный | 0 |
| Blue | Синий | 1 |
| Green | Зеленый | 2 |
| Cyan | Бирюзовый | 3 |
| Red | Красный | 4 |
| Magenta | Сиреневый | 5 |
| Brown | Коричневый | 6 |
| LightGray | Белый | 7 |