Организовать мерцание или мигание текста в текстовом режиме - Turbo Pascal

Формулировка задачи:

1. Организовать мерцание или мигание текста в текстовом режиме. Текст: "Привет!" 2. Организовать движение текста с рамкой по диагонали в графическом режиме. Текст "паскаль" 3. Организовать управление расположением текста на экране. Текст "Турбо Паскаль" Все программы написать с помощью пользовательских модулей, каждый модуль должен быть в отдельном окне. Вызов и запуск должен осуществляться в одной программе через следующее меню: Мерцание (мигание) текста в текстовом режиме. Движение текста в графическом режиме. Управление текстом.

Решение задачи: «Организовать мерцание или мигание текста в текстовом режиме»

textual
                            Листинг программы 
                        

                            unit modul_1;
interface
uses crt;
procedure merc;
implementation
procedure merc;
var s:string;
begin
clrscr;
s:='Privet!';
repeat
clrscr;
textcolor(2);
write(s);
delay(50);
clrscr;
textcolor(10);
write(s);
delay(50);
until keypressed;
readln;
end;
end.
                        