Модуль Crt позволяет выводить цветные символы на цветном экране. Хотя по-прежнему отображение будет происходить в текстовом режиме. Текстовый режим означает, что на экране могут выводиться только определенные символы в определенных местах (знакоместах). Можно представить экран, разделенным вертикальными и горизонтальными линиями на ячейки. В эти ячейки можно «вписывать» различные символы. У каждой ячейки есть адрес. Модуль Crt содержит ряд процедур, позволяющих задавать цвет символов и экрана, очищать экран, менять позицию курсора и др. Стандартный экран в Паскале чаще формируется из 25 сток и 80 столбцов. Строки нумеруются сверху вниз, а столбцы слева на право. Нумерация начинается с единицы (что может показаться непривычным). Количество доступных цветов (для экрана и символов) всего 16. Они кодируются числами от 0 до 15. Также вместо чисел можно прописывать названия цветов.

function ReadKey: char;    Читает символ из буфера клавиатуры.

function KeyPressed: boolean;   Определяет, была ли нажата клавиша.

procedure GotoXY(x,y: integer); Перемещает курсор в позицию (x,y).

function WhereX: integer; Возвращает x-координату текущего положения курсора.

function WhereY: integer; Возвращает y-координату текущего положения курсора.

procedure ClrScr;  Очищает цветом фона все текстовое окно или текущее окно, установленное процедурой window. Устанавливает курсор в левый верхний угол очищенного окна.

procedure Window(x1,y1,x2,y2: integer);  Определяет на экране текущее окно. Устанавливает курсор в левый верхний угол текущего окна

procedure ClrEol; Очищает все символы с позиции курсора до конца строки без перемещения курсора.

procedure DelLine;  Удаляет строку, содержащую курсор.

procedure InsLine;  Вставляет пустую строку в позиции курсора.

procedure Delay(ms: integer);   Осуществляет задержку на ms миллисекунд.

procedure TextColor(c: byte); Устанавливает цвет символов.

procedure TextBackGround(c: byte); Устанавливает цвет фона.

procedure LowVideo; Включает низкую интенсивность символов.

procedure HighVideo; Включает высокую интенсивность символов.

procedure HideCursor; Скрывает текстовый курсор.

procedure ShowCursor; Делает текстовый курсор видимым.

procedure CRTWindowSize(w,h: integer); Устанавливает размер текстового окна в символах.

procedure TextSize(sz: integer); Устанавливает размер символов в пунктах (по умолчанию 10 пунктов).

procedure TextNormal; Устанавливает нормальный стиль символов.

procedure TextBold; Устанавливает жирный стиль символов.

procedure ScrollingOff; Отключает прокрутку при выводе.

procedure ScrollingOff; Включает прокрутку при выводе.

Чтобы очистить экран от всех надписей, требуется выполнить процедуру clrscr. Если перед этим был задан цвет экрана (с помощью textbackground), то экран будет залит соответствующим цветом.

Цвет текста определяется процедурой textcolor, позиция курсора – gotoxy.

Для вывода символов на экран используются стандартные процедуры write и writeln.

Также существует процедура временной задержки delay (аргумент задается в микросекундах), если требуется выводить символы не сразу, а постепенно.

uses crt;
begin
 textbackground (7);
 clrscr;
 textcolor (12);
 gotoxy (10,5);
 write ('Hi, world!');
 delay (1500);
 gotoxy (40,22);
 textcolor (14);
 write ('Yes');
readln
end.