анимация в Паскаль

[Кинива]

привет)
помогите сделать анимацию ,чтоб клоун шевелил волосами вверх и вниз

Program rte;
uses GraphABC;
var i:integer;
begin
lockdrawing;
for i:=1 to 500 do
begin
Circle(315,288,75);
 
Circle(315,288,25);
Circle(300,260,10);
Circle(330,260,10);
Line(264,230,230,235);
Line(362,230,400,236);
Line(393,243,420,248);
Line(399,237,392,245);
Line(230,235,240,243);
Line(210,245,240,243);
Line(210,245,220,250);
Line(178,255,219,250);
Line(178,255,242,259);
Line(418,248,404,250);
Line(446,255,404,250);
Line(440,255,384,258);
 
Line(357,358,390,375);
Line(240,374,273,359);
Line(240,376,390,374);
redraw;
sleep(10);
setbrushcolor(clwhite);
fillrect(0,0,1000,1000);
end;
end.

[Smitt&Wesson]

привет)
помогите сделать анимацию ,чтоб клоун шевелил волосами вверх и вниз

Тебе брат на фриланс надо.
Такое бесплатно не пишут.