Анимация привязанная к клавишам

uses crt, graphabc;
var x:integer;
begin
lockdrawing;
hidecursor;
repeat
clearwindow;
setwindowsize(640, 480);
setpencolor(clblack);
moveto(111, 72);   {KORPYS}
lineto(111, 116);
lineto(118, 116);
lineto(118, 136);
lineto(132,136);
lineto(132, 116);
lineto(141, 116);
lineto(141, 136);
lineto(155, 136);
lineto(155, 116);
lineto(162, 116);
lineto(162, 72);
lineto(111, 72);
 
 
moveto(111, 72);  {1 Ryka}
lineto(95, 72);
lineto(95, 100);
lineto(92, 100);
lineto(92, 108);
lineto(105, 108);
lineto(105, 100);
lineto(102, 100);
lineto(102, 80);
lineto(111, 80);
 
Moveto(162, 72); {2 Ryka}
lineto(178, 72);
lineto(178, 100);
lineto(181, 100);
lineto(181, 108);
lineto(168, 108);
lineto(168, 100);
lineto(171, 100);
lineto(171, 80);
lineto(162, 80);
 
moveto(128, 72);  {Golova}
lineto(128, 65);
lineto(110, 65);
lineto(110, 45);
lineto(163, 45);
lineto(163, 65);
lineto(145, 65);
lineto(145, 72);
 
setbrushcolor(random(clyellow));
circle(125, 55, 6); {Glaza}
circle(147, 55, 6);
circle(147, 55, 2);
circle(125, 55, 2);
 
 
moveto(112, 45); {Antenka}
lineto(112, 25);
circle(112, 25, 3);
 
 
floodfill(115,75, clsilver); {Zalivki}
floodfill(110,75, clsilver);
floodfill(165,75, clsilver);
floodfill(130,62, clsilver);
floodfill(122,55, clred);
floodfill(143,55, clred);
floodfill(112,25, clBlue);
sleep(100);
redraw;
until keypressed;
end.

uses graphABC,Events;
 
var xx,yy:integer;
 
procedure Robo(x,y: integer);
begin
setpencolor(clblack);
moveto(x+111, y+72);   {KORPYS}
lineto(x+111, y+116);
lineto(x+118, y+116);
lineto(x+118, y+136);
lineto(x+132, y+136);
lineto(x+132, y+116);
lineto(x+141, y+116);
lineto(x+141, y+136);
lineto(x+155, y+136);
lineto(x+155, y+116);
lineto(x+162, y+116);
lineto(x+162, y+72);
lineto(x+111, y+72);
 
 
moveto(x+111, y+72);  {1 Ryka}
lineto(x+95,  y+72);
lineto(x+95, y+100);
lineto(x+92, y+100);
lineto(x+92, y+108);
lineto(x+105, y+108);
lineto(x+105, y+100);
lineto(x+102, y+100);
lineto(x+102, y+80);
lineto(x+111, y+80);
 
Moveto(x+162, y+72); {2 Ryka}
lineto(x+178, y+72);
lineto(x+178, y+100);
lineto(x+181, y+100);
lineto(x+181, y+108);
lineto(x+168, y+108);
lineto(x+168, y+100);
lineto(x+171, y+100);
lineto(x+171, y+80);
lineto(x+162, y+80);
 
moveto(x+128, y+72);  {Golova}
lineto(x+128, y+65);
lineto(x+110, y+65);
lineto(x+110, y+45);
lineto(x+163, y+45);
lineto(x+163, y+65);
lineto(x+145, y+65);
lineto(x+145, y+72);
 
setbrushcolor(random(clyellow));
circle(x+125, y+55, 6); {Glaza}
circle(x+147, y+55, 6);
circle(x+147, y+55, 2);
circle(x+125, y+55, 2);
 
 
moveto(x+112, y+45); {Antenka}
lineto(x+112, y+25);
circle(x+112, y+25, 3);
 
 
floodfill(x+115,y+75, clsilver); {Zalivki}
floodfill(x+110,y+75, clsilver);
floodfill(x+165,y+75, clsilver);
floodfill(x+130,y+62, clsilver);
floodfill(x+122,y+55, clred);
floodfill(x+143,y+55, clred);
floodfill(x+112,y+25, clBlue);
end;
 
procedure KeyDown(Key: integer);
begin
  case Key of
       VK_Left: if xx>-100 then xx:=xx-2;
       VK_Right: if xx<700 then xx:=xx+2;
       VK_Up: if yy>-50 then yy:=yy-2;
       VK_Down: if yy<550 then yy:=yy+2;
  end;
  clearwindow(clnavy);
  Robo(xx,yy);
  redraw;
end;
 
begin
lockdrawing;
setwindowsize(900,700);
clearwindow(clnavy);
xx:=200; yy:=200;
Robo(xx,yy);
redraw;
OnKeyDown:=KeyDown;
end.