Написать программу используя функцию ReadKey

program lab_14;
uses crt;
var a,b:char;
begin
  textbackground(1);
  clrscr;
  textcolor(15);
    gotoxy(40,10);
      writeln('$');
  repeat
  a:=readkey;
    case a of
     #119: begin gotoxy(40,8); writeln('$'); end;
     #100: begin gotoxy(42,8); writeln('$'); end;
    end;
  until (a=#100);
end.

uses crt;
var x,y,w:integer;k:char;
begin
 clrscr;
 x:=45;y:=12;
 gotoxy(x,y);
 write('*');
 repeat
  gotoxy(1,1);
  textcolor(white);
  write('Dlya vihoda - ESC');
  gotoxy(x,y);
  write('*');
  k:=readkey;
  case k of
   #72:begin y:=y-2; w:=100; end;
   #80:begin y:=y+2; w:=200; end;
   #75:begin x:=x-2; w:=300; end;
   #77:begin x:=x+2; w:=400; end;
  end;
  sound(w);
  delay(200);
  textcolor(black);
  gotoxy(x,y);
  write('*');
  clrscr;
 until k=#27;
 nosound;
end.

uses crt;
var a:char;
    x,y:byte;
begin
textbackground(1);
clrscr;
textcolor(15);
hidecursor;
x:=40;
y:=13;
gotoxy(x,y);
write('$');
repeat
a:=readkey;
if a=#0 then a:=readkey;
case a of
#72: begin
     clrscr;
     if y>2 then y:=y-2;
     gotoxy(x,y);
     write('$');
     sound(1000);//3 строки для турбо
     delay(1000);
     nosound;
     end;
#75: begin//вообще здесь нужно #77, но у меня почему-то сено-солома...
     clrscr;
     if x<78 then x:=x+2;
     gotoxy(x,y);
     write('$');
     sound(600);
     delay(1000);
     nosound;
     end;
    end;
until not(a in [#72,#75]);
end.

uses crt,sounds;
var x,y,n:integer;k:char;  s:sound;
begin
 clrscr;
 x:=45;y:=12;
 gotoxy(x,y);
 write('*');
 repeat
  gotoxy(1,1);
  write('Dlya vihoda - ESC  ');
  gotoxy(x,y);
  write('*');
  k:=readkey;
  case k of
   #72:begin y:=y-2; s:=Sound.Create('pos.wav'); s.Play; Sleep(s.Length); s.Destroy; end;
   #80:begin y:=y+2; s:=Sound.Create('kuku.wav'); s.Play; Sleep(s.Length); s.Destroy;end;
   #75:begin x:=x+2; s:=Sound.Create('Neg.wav'); s.Play; Sleep(s.Length); s.Destroy; end;
   #77:begin x:=x-2; s:=Sound.Create('Boing.wav');  s.Play; Sleep(s.Length); s.Destroy;end;
  end;
  gotoxy(x,y);
  write('*');
  clrscr;
 until k=#27;
end.