Центрирование строки текста в программах Turbo Pascal

Процедура Middle выводит на экран строку текста, центрируя ее. Длина выводимой строки не должна превышать 80 символов. Для удобства работы с процедурой в ней предусмотрен контроль длины выводимой строки. Если длина строки превышает 80 символов, то выдается рекоменia сколько необходимо уменьшить число символов в строке, и выполнение программы прерывается (аварийное завершение программы).

{------------------------	 Middle		------------------------	
Процедура выводит строку текста, центрируя её на строке 
Stroka - вводимая строка 
Y      - координата Y
------------------------	middle.inc	------------------------}
PROCEDURE Middle (Stroka : string; Y : integer); 
{$I waitdos.inc }
VAR
X   : integer; 
BEGIN
if Length (Stroka) > 80 then begin
GotoXY (18,8) ;
Writeln ('Текст сообщения в строке, начинающийся с: '); 
GotoXY (21,10);
Write ('"',Copy (Stroka,1,30), '..."'); 
GotoXY (29,12);
Write (' превысил 80 символов ! '); 
GotoXY (18,14);
Write ('Уменьшите длину текста на '); 
Write (Length (Stroka) - 80, ' символов(ов)'); 
WaitDos (6);
Halt;{аварийное завершение программы } 
end; 
X := (80 - Length (Stroka)) div 2; 
GotoXY(X,Y); 
Writeln (Stroka); 
END;

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

PROGRAM DemoMiddle; 
USES Crt, Dos; 
CONST
Stroka_l = 'Пример вывода строки сообщения';
Stroka_2 = 'с использованием процедуры Middle.inc';
Stroka 3 = '  Ждите 7 секунд до завершения программы ...';
{$I middle.inc }
{$I waitdos.inc } 
BEGIN
ClrScr;
TextColor (11) ;
Middle (Stroka_l, 10);
Middle (Stroka_2, 12);
TextColor (4);
TextBackGround (15);
Middle (Stroka_3, 18);
WaitDos   (7); 
END.