В Паскаль ABC сделать графического человека маленького с анимацией 8 класс

//Это человечек в профиль.//Pascal ABC.NET v3.1 сборка 1172Uses GraphABC;Var i:integer;beginmaximizewindow; for i:=100 to 500 do  begin   clearwindow();   setbrushcolor(clGold);   circle(i,i,10);   circle(i,i+30,6);   circle(i,i+65,6);   setbrushcolor(clgray);   ellipse(i-15,i+10,i+15,i+60);   setbrushcolor(clGold);   circle(i,i+30,6);   sleep(40);  end;end.