Вывод строки с центрированием и изменением яркости символов

Данная процедура Turbo Pascal обеспечивает вывод строки. Символы выводятся на черный фон белым цветом разной насыщенности, симметрично относительно левой и правой границам экрана. Вывод строки сопровождается звуковыми сигналами.

{--------------------------	 Colorstr	----------------------------	
Процедура вывода строки сообщения с центрированием. Строка выводится 
трижды на одно и то  же место. При  этом ее  цвет измеяется  и вывод 
строки сопровождается звуковыми сигналами. В данной процедуре  вывод 
осуществляется  на  экран  с  черным  фоном. Символы выводятся белым 
цветом разной насыщенности. Для  установки  других  цвето  в  фона и 
символов необходимо внести изменения в исходный текст процедуры
-------------------------	colorstr.inc ---------------------------}
PROCEDURE ColorStr (Stroka : string;  Y: integer);
{ текст сообщения не должен превышать 80 символов } 
( Y - строка вывода сообщения } 
{$I waitdos.inc } 
VAR
X   : integer;   { позиции начала вывода строки } 
BEGIN 
TextBackGround(O); 
ClrScr;
TextColor (15) ; { центрируем строку } 
if Length (Stroka) > 80 then begin
	TextColor(15); 
	GotoXY (18,8);
	Writeln ('Текст сообщения  в строке, начинающейся с:'); 
	GotoXY (21,10);
	Write ('"',Copy (Stroka,1,30), '..."'); 
	GotoXY (29,12) ;
	Write ('превысил 80 символов !'); 
	GotoXY (28,14); 
	Write   ('Сократите текст.'); 
	WaitDos (7) ; 
	Halt; 
end; 
X := (80 - Length (Stroka)) div 2; 
TextColor (13); 
GotoXY(X,Y);
Writeln (Stroka); 
WaitDos (2) ; 
TextColor (14); 
GotoXY (X,Y); 
Write (Stroka); 
Sound (3560); 
WaitDos (2); 
NoSound; 
TextColor(15); 
GotoXY (X,Y); 
Write (Stroka); 
Sound (2356); 
WaitDos (1); 
NoSound; 
END;

Пример использования процедуры ColorStr.

PROGRAM DemoColorStr; 
USES Crt, Dos;
($I colorstr.inc }   { вывод строки с изменяемым цветом }
{$I waitdos.inc  } 
BEGIN
ClrScr;
ColorStr   ('ФИРМА       ИНФОРМАТИК',   10);
TextColor (11);
GotoXY (1, 23);
Write ('Выход - Enter');
Readln; 
END.