Изобразить идущего робота

program indiv;
uses GraphABC;
var i,x: integer;
procedure robot ;
begin
 
     SetBrushColor(clGray);
     Rectangle(i+300,100,i+250,160); {Ãîëîâà}
     Rectangle(i+283,160,i+268,170);   {Øåÿ}
     Rectangle(i+235,170,i+315,300);  {òåëî}
     Rectangle(i+245,188,i+305,285);  {ïîäòåëî}
     line(i+190,170,i+235,170);     { âåðõíÿÿ ëåâàÿ ðóêà}
     line(i+190,180,i+235,180);    { íèæíÿÿ ëåâàÿ ðóêà}
     line(i+150,155,i+190,170);
     line(i+150,165,i+190,180);
      FloodFill(i+300,165,clBlue);
     line(i+315,170,i+370,170);     { âåðõíÿÿ ïðàâàÿ ðóêà}
     line(i+315,180,i+370,180);      { íèæíÿÿ ïðàâàÿ ðóêà}
     line(i+370,180,i+410,195);
     line(i+370,170,i+410,185);
     circle(i+150,155,10);   {ëåâûå ïàëüöà}
     circle(i+410,195,10);   {ïðàâàÿ ïàëüöà}
     line(i+245,300,i+245,355); {ëåâàÿ íîãà}
     line(i+265,300,i+265,355);
     line(i+245,355,i+230,405);
     line(i+265,355,i+250,405);
     Rectangle(i+260,420,i+225,400);   {ëåâàÿ ñòîïà}
     line(i+305,300,i+305,355); {ïðàâàÿ íîãà}
     line(i+285,300,i+285,355);
     line(i+305,355,i+320,405);
     line(i+285,355,i+300,405);
     Rectangle(i+327,420,i+292,400);   {ïðàâàÿ ñòîïà}
     Ellipse(i+275,125,i+300,110);     {ïðàâûé ãëàç }
     Ellipse(i+250,125,i+275,110);      {ëåâûé ãëàç}
     Circle(i+275,130,5);               {íîñ}
     Rectangle(i+285,145,i+265,150);         {ðîò}
     line(i+370,170,i+370,180);             {ïðàâàÿ ðóêà}
     line(i+190,170,i+190,180);             {ëåâàÿ ðóêà ëèíèÿ}
     line(i+245,355,i+265,355);              {ëåâàÿ íîãà ëèíèÿ}
     line(i+285,355,i+305,355);
     end;
     begin
LockDrawing;
for i:=1 to 2000 do
 begin
  robot;
  RedRaw;
  sleep(0);
SetBrushColor(clwhite);
  FillRect(0,0,2000,2000);
 
  end;
  
  
  end.