Нарисовать на экране прямоугольник и заставить его двигаться по горизонтали, сопровождая движение звуком

{$reference PresentationCore.dll}
uses abcobjects,graphabc,PresentationCore;
var rx,ry:integer;
Rect:RectangleABC;
s:System.Windows.media.MediaPlayer;
const slt=3;//sleepTime
path='';//путь до звука 
begin
Rect:=new RectangleABC(Window.Width div 2-45,Window.Height-80,90,80,clGreen);
ry:=Rect.Position.Y;
{s:=new System.Windows.Media.MediaPlayer();//для воспроизведения звука 
s.Open(new System.Uri(path,System.UriKind.Relative));
s.Play;}
repeat
repeat
Sleep(slt);
ry-=1;
Rect.MoveTo(Rect.Position.X,ry);
until Rect.Position.Y<1;
repeat
Sleep(slt);
ry+=1;
Rect.MoveTo(Rect.Position.X,ry);
until Rect.Position.Y+80*3=Window.Width;
until false;
end.

uses crt;
procedure rect(x,y,w,h,c:integer);
var i:integer;
begin
textcolor(c);
gotoXY(x,y);
write(#218);
for i:=1 to w-2 do
write(#196);
write(#191);
for i:=1 to h-2 do
 begin
  gotoXY(x,y+i);write(#179);
  gotoXY(x+w-1,y+i);write(#179);
 end;
gotoXY(x,y+h-1);
write(#192);
for i:=1 to w-2 do
write(#196);
write(#217);
gotoXY(80,25)
end;
var x,y,w,h,c:integer;
begin
clrscr;
x:=1;
y:=11;
w:=10;
h:=5;
while x<80-w do
 begin
  rect(x,y,w,h,15);
  delay(100);
  rect(x,y,w,h,0);
  x:=x+1;
  sound(600);
 end;
nosound;
rect(x,y,w,h,15);
readln
end.

uses crt;
var x,y:integer;
begin
hidecursor;
textbackground(0);
clrscr;
x:=10;
y:=5;
repeat
window(x,y,x+10,y+10);
textbackground(2);
clrscr;
delay(100);
textbackground(0);
clrscr;
x:=x+1;
until x>=70;
end.