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

uses crt;
const s='Андрей';
var c1,c:char;
    n,x,y:integer;
begin
clrscr;
n:=length(s);
x:=(80-n)div 2;
y:=13;
gotoXY(x,y);
write(s);
repeat
if keypressed then
 begin
  c1:=readkey;
  if c1=#0 then c:=readkey;
  case c of
  #75:if x>0 then
       begin
        clrscr;
        x:=x-1;
        gotoXY(x,y);
        write(s);
        sound(200);
        delay(100);
        nosound;
       end;
  #77:if x<80-n then
       begin
        clrscr;
        x:=x+1;
        gotoXY(x,y);
        write(s);
        sound(300);
        delay(100);
        nosound;
       end;
  #72:if y>1 then
       begin
        clrscr;
        y:=y-1;
        gotoXY(x,y);
        write(s);
        sound(400);
        delay(100);
        nosound;
       end;
  #80:if y<25 then
       begin
        clrscr;
        y:=y+1;
        gotoXY(x,y);
        write(s);
        sound(500);
        delay(100);
        nosound;
       end;
  end;
 end;
until c=#82;
end.