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

uses crt;
const s='Андрей 1234';
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
  c:=readkey;
  if c=#0 then c:=readkey;
  case c of
  #75:if x>2 then
       begin
        clrscr;
        x:=x-1;
        gotoXY(x,y);
        write(s);
        delay(100);
       end;
  #77:if x<80-n then
       begin
        clrscr;
        x:=x+1;
        gotoXY(x,y);
        write(s);
        delay(100);
       end;
  #72:if y>2 then
       begin
        clrscr;
        y:=y-1;
        gotoXY(x,y);
        write(s);
        delay(100);
       end;
  #80:if y<24 then
       begin
        clrscr;
        y:=y+1;
        gotoXY(x,y);
        write(s);
        delay(100);
       end;
  #27:exit
  end;
 end;
until c=#27;
end.