Напишите программу, перемещающую по экрану ваше имя клавишами управления движением курсора - Turbo Pascal

Формулировка задачи:

Напишите программу, перемещающую по экрану ваше имя клавишами управления движением курсора. Каждый шаг "имени" должен быть озвучен, причём высота звука должна зависеть от направления движения. Окончание работы программы - клавиша Ins. Turbo Pascal

Решение задачи: «Напишите программу, перемещающую по экрану ваше имя клавишами управления движением курсора»

textual
                            Листинг программы 
                        

                            uses crt;
const s='Онуфрий';
var c:char;
    i,k,x,y:byte;
    s1:string;
begin
clrscr;
s1:='';
for i:=1 to length(s) do
s1:=s1+' ';
k:=length(s) div 2;
gotoXY(20,1);
write('Управление - стрелки, выход Insert');
x:=40-k;
y:=13;
gotoXY(x,y);
write(s);
repeat
c:=readkey;
if c=#0 then c:=readkey;
case c of
#75:if x>1 then
     begin
      gotoXY(x,y);
      write(s1);
      x:=x-1;
      gotoXY(x,y);
      write(s);
      gotoXY(79,24);
      sound(400);
      delay(100);
      nosound;
     end;
#77:if x<80-length(s) then
     begin
      gotoXY(x,y);
      write(s1);
      x:=x+1;
      gotoXY(x,y);
      write(s);
      gotoXY(79,24);
      sound(600);
      delay(100);
      nosound;
     end;
#72:if y>2 then
     begin
      gotoXY(x,y);
      write(s1);
      y:=y-1;
      gotoXY(x,y);
      write(s);
      gotoXY(79,24);
      sound(500);
      delay(100);
      nosound;
     end;
#80:if y<25 then
     begin
      gotoXY(x,y);
      write(s1);
      y:=y+1;
      gotoXY(x,y);
      write(s);
      gotoXY(79,24);
      sound(600);
      delay(100);
      nosound;
     end;
#82:exit;
end;
until c=#82;
readln
end.
                        