Создать программу выполняющую анимацию

uses graphABC;
procedure paravoz(x,y:integer);
var i,x1:integer;
begin
setpencolor(clBlack);
setbrushcolor(clBlack);
x1:=x+11;
for i:=1 to 5 do
 begin
  circle(x1,y+83,11);
  x1:=x1+20
 end;
rectangle(x,y+35,x+80,y+75);
moveto(x+22,y+35);
lineto(x+33,y+35);
lineto(x+38,y+10);
lineto(x+15,y+10);
lineto(x+22,y+35);
floodfill(x+25,y+30,clBlack);
setpencolor(clGreen);
setbrushcolor(clGreen);
rectangle(x+70,y,x+115,y+75);
setpencolor(clWhite);
setbrushcolor(clWhite);
rectangle(x+80,y+10,x+105,y+35);
setpencolor(clBlack);
setbrushcolor(clBlack);
rectangle(x+115,y+55,x+122,y+65);
setbrushstyle(bsClear);
ellipse(x+25,y-8,x+50,y+8);
ellipse(x+42,y-12,x+65,y+6);
ellipse(x+57,y-20,x+75,y-3);
ellipse(x+70,y-20,x+83,y-8);
end;
var x,y:integer;
begin
x:=windowwidth-120;
y:=200;
lockdrawing;
repeat
clearwindow;
paravoz(x,y);
sleep(100);
x:=x-5;
redraw;
until x<=5;
end.

uses graph,crt;
procedure paravoz(x,y,c1,c2:integer);
var i,x1:integer;
begin
setcolor(c1);
setfillstyle(1,c1);
x1:=x+11;
for i:=1 to 5 do
 begin
  circle(x1,y+83,11);
  floodfill(x1,y+83,c1);
  x1:=x1+20
 end;
rectangle(x,y+35,x+70,y+75);
floodfill(x+10,y+50,c1);
moveto(x+22,y+35);
lineto(x+33,y+35);
lineto(x+38,y+10);
lineto(x+15,y+10);
lineto(x+22,y+35);
floodfill(x+25,y+30,c1);
setcolor(c2);
rectangle(x+70,y,x+115,y+75);
setfillstyle(1,c2);
floodfill(x+80,y+5,c2);
setcolor(15);
rectangle(x+80,y+10,x+105,y+35);
setfillstyle(1,15);
floodfill(x+85,y+15,15);
setcolor(c1);
rectangle(x+115,y+55,x+122,y+65);
setfillstyle(1,c1);
floodfill(x+120,y+60,c1);
ellipse(x+37,y,0,360,13,8);
ellipse(x+50,y-3,0,360,10,8);
ellipse(x+58,y-11,0,360,6,6);
ellipse(x+65,y-13,0,360,4,4);
end;
var x,y:integer;
begin
initgraph(x,y,'');
x:=getmaxX-100;
y:=200;
setfillstyle(1,15);
bar(0,0,getmaxX,getmaxY);
repeat
paravoz(x,y,15,15);
x:=x-5;
paravoz(x,y,0,2);
delay(100);
until x<=5;
readln
end.