Программа выводящая, какой либо текст в рамке и без на экран - Turbo Pascal

uses crt;
const s='Для выхода из программы нажмите Enter';
var n,i,x:byte;
begin
clrscr;
n:=length(s);
x:=(80-n)div 2-2;
gotoXY(x,12);
textcolor(14);
write(#201);
for i:=1 to n+2 do write(#205);
write(#187);
gotoXY(x,13);
write(#186);
gotoXY(x+n+3,13);
write(#186);
gotoXY(x,14);
write(#200);
for i:=1 to n+2 do write(#205);
write(#188);
gotoXY(x+2,13);
write(s);
gotoXY(80,25);
sound(800);
readln;
nosound;
end.