Паскаль.напишите алгоритм

Доброго времени суток.

Вот и з справки ТР 7.0

TextColor (процедура) (модуль Crt)
▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
Выбирает цвет символов.

Объявление:
Procedure TextColor(Color : Byte);

Режим:
Real, Protected

Замечания:
Параметр Color - целочисленное выражение в
диапазоне 0 .. 15, соответствующий одной из
констант цвета текстового режима, определенных
в модуле Crt.

В модуле Crt существует переменная типа байт -
TextAttr, которая используется для хранения
текущего видеоатрибута. TextColor
устанавливает биты 0-3 переменной TextAttr в
Color. Если Color больше 15, то бит 7 (бит,
определяюший мигание) тоже поднимается.

Вы можете заставить выводимые символы мигать,
прибавив 128 к значению Color. Для этой цели
существует предопределенная константа Blink.
Для совместимости с Turbo Pascal 3.0, любое
значение Color большее 15 будет заставлять
выводимые символы мигать.

Все символы, выводимые впоследствии, будут
выводиться цветом = Color.

Смотри также:
HighVideo
LowVideo
NormVideo
TextBackground

TextBackground (процедура) (модуль Crt)
▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
Устанавливает цвет фона.

Объявление:
Procedure TextBackground(Color : Byte);

Режим:
Real, Protected

Замечания:
Color - целочисленное выражение в диапазоне 0
.. 7, соответствющее одной из первых восьми
констант цвета в текстовом режиме. В модуле
Crt существует переменная типа байт -
TextAttr, которая используется для хранения
текущего видеоатрибута. TextBackground
устанавливает биты 4-6 переменной TextAttr в
Color.

Все символы, выводимые впоследствии, будут
иметь цвет фона = Color.

Пример:
NormVid.PAS
{ Пример программы для NormVideo, TextBackGround и TextColor }

Uses Crt;

Begin
{ Зеленые символы на черном фоне }
TextColor(Green);
TextBackground(Black);
WriteLn('Привет! ');
{ Мигающие светло-красные символы на сером фоне }
TextColor(LightRed+Blink);
TextBackground(LightGray);
WriteLn('Еще раз привет! ');
{ Желтые символы на синем фоне }
TextColor(14);
{ Константа Yellow = 14 }
TextBackground(Blue);
WriteLn('Ну, привет же !!!');
NormVideo;
{ Восстанавливаем атрибуты }
WriteLn('Нет никого ???Тогда, пока !');
End.

Удачи!

полистай книжку по Tyrbo Pascal в разделе текстовые операторы там точно найдеш и если повезёт текст проги тож будет