Составить программу движения по экрану символа “*” под управлением некоторого набора клавиш

Uses Graph,wincrt;
var
  gd,gm,x,y,dx,dy,wx,wy:integer;
  c:char;
begin
  randomize;
  gd:=Detect;
  InitGraph(gd,gm,'');
  x:=GetMaxX div 2;
  y:=GetMaxY div 2;
  wx:=TextWidth('*');
  wy:=TextHeight('*');
  SetColor(White);
  SetFillStyle(SolidFill,Black);
  repeat
    while not keypressed do begin
      Bar(x,y,x+wx,y+wy);
      x:=x+dx;
      y:=y+dy;
      if x>=GetMaxX-wx then dx:=-1;
      if y>=GetMaxY-wy then dy:=-1;
      if x<wx then dx:=1;
      if y<wy then dy:=1;
      OutTextXY(x,y,'*');
      delay(10);
    end;
    c:=readkey;
    Case  upcase(c) of
      'Q':begin dx:=-1;dy:=-1;end;
      'W':begin dx:=0;dy:=-1;end;
      'E':begin dx:=1;dy:=-1;end;
      'A':begin dx:=-1;dy:=0;end;
      'S':begin dx:=0;dy:=1;end;
      'D':begin dx:=1;dy:=0;end;
      'Z':begin dx:=-1;dy:=1;end;
      'C':begin dx:=1;dy:=1;end;
   end;
 
  until c=#27;
  closegraph;
end.

uses Crt;
const
  Up='QWE789'#71#72#73; Dn='ZSXC123'#79#80#81;
  Lt='QAZ741'#71#75#79; Rt='EDC963'#73#77#81;
var x, y, dx, dy: Integer; c: Char;
begin
  x:=Lo(WindMax) div 2; y:=Hi(WindMax) div 2;
  repeat
    GotoXY(x,y); Write('*');
    repeat
      c:=UpCase(ReadKey); if c=#0 then c:=ReadKey;
      dx:=-Ord(0<Pos(c,Lt))+Ord(0<Pos(c,Rt));
      dy:=-Ord(0<Pos(c,Up))+Ord(0<Pos(c,Dn));
    until (Abs(dx)+Abs(dy)>0) or (c=#27);
    GotoXY(x,y); Write(' ');
    Inc(x,dx); Inc(y,dy);
    if x<1 then x:=Lo(WindMax) else if x>Lo(WindMax) then x:=1;
    if y<1 then y:=Hi(WindMax)+1 else if y>Hi(WindMax)+1 then y:=1;
  until c=#27;
end.