Построить объект, который передвигается с помощью навигационных клавиш (программа Паскаль)

USES Crt,Graph; VAR   Gd,Gm : INTEGER;  Av : CHAR;   X,Y,I,T,Z,K : INTEGER;  St : STRING[225];
BEGIN
  Gd:=Detect;  InitGraph(Gd,Gm,'C:\tp7\BGI');
  ClearDevice;
  X:=GetMaxX DIV 2;  Y:=GetMaxY DIV 2;
  T:=0;  I:=0;  K:=500;
  REPEAT
    SetColor(15);
    { Построение объекта }
    Line(X,Y-10,X,Y-3); Line (X,Y+10,X,Y+3);     Line (X-10,Y,X-3,Y); Line (X+10,Y,X+3,Y);
    Circle(X,Y,7);
    Av:=ReadDKey;
    { Изменение координат при нажатии клавиши }
    IF CHR(75)=Av THEN T:=-10;   IF CHR(77)=Av THEN T:=10;
    IF CHR(72)=Av THEN I:=-10;    IF CHR(80)=Av THEN I:=10;
    SetColor (0);     Line (X,Y-10,X,Y-3); Line (X,Y+10,X,Y+3);
    Line (X-10,Y,X-3,Y); Line (X+10,Y,X+3,Y);
    Circle(X,Y,7);
    X:=X+T;    Y:=Y+I;    I:=0;    T:=0;
    IF X>(GetMaxX-2) THEN X:=GetMaxX-2;    IF X<2 THEN X:=2;
    IF Y>(GetMaxY-2) THEN Y:=GetMaxY-2;    IF Y<2 THEN Y:=2;
  UNTIL ORD(Av)=27; { Пока не нажата клавиша Esc }
END.

в реальной жизни конь был не с розовой а с желтой интересный факт

Объяснение: