Анимация: плавное перемещение бабочки

uses crt,graph;
var
gd,gm,i,t:integer;
procedure zakraska(x,y:integer;color,color1:word);
begin
setfillstyle(1,color1);
floodfill(x,y,color);
end;
procedure pchela(x,y:integer);
begin
  setcolor(1);
  ellipse(x,y,0,360,90,70);{Тело}
  ellipse(x,y,270,90,7,70);
  ellipse(x+20,y,280,74,10,70);
  ellipse(x+40,y,300,64,10,70);
  ellipse(x+60,y,317,40,10,70);
  ellipse(x-20,y,280,80,10,70);
  ellipse(x-40,y,295,65,10,70);
  ellipse(x-60,y,310,52,10,70);
 
  for i:=0 to 3 do
  zakraska(x-60+40*i,y,1,1);
 
  for i:=0 to 3 do
  zakraska(x-40+40*i,y,1,14);
 
  circle(x-120,y-10,55);{Голова}
  zakraska(x-120,y-10,1,14);
  circle(x-145,y-30,5);{Ј«*§*}
  zakraska(x-145,y-30,1,1);
  circle(x-115,y-25,5);
  zakraska(x-115,y-25,1,1);
  ellipse(x-140,y+10,180,360,15,5);
  ellipse(x-130,y-80,90,250,7,20);
  circle(x-130,y-100,4);
  zakraska(x-130,y-101,1,1);
  ellipse(x-148,y-75,90,250,7,20);
  circle(x-148,y-95,4);
  zakraska(x-148,y-96,1,1);
  ellipse(x-55,y-93,27,250,60,60);
  ellipse(x+50,y-90,299,200,60,60);
  line(x+90,y,x+110,y-20);
  line(x+85,y+20,x+110,y-20);
  zakraska(x+90,y+10,1,1);
 
end;
 
begin
gd:=detect;
Initgraph(gd,gm,'');
   setbkcolor(15);
   setcolor(1);
   t:=800;
   repeat
   pchela(t,200);
   t:=t-1;
   outtextxy(t+120,200,'Добро пожаловать') ;
   until t<-100;
Readkey;
Closegraph;
end.