Паскаль. Написать программу, которая будет выводить внизу экрана "бегущую строку", а в конце процесса давать двойной гудок

//Больше всего проблем доставил звук uses graphABC; var  x , y : integer;  s : string;  begin; x:= 1; y:= windowheight-20; s:= 'Важное сообщение'; while x<>windowwidth do begin; textout(x,y,s); inc(x); sleep(50); clearwindow; end; system.Console.Beep(500,1000); sleep(1000); system.Console.Beep(500,1000); end.