Любая анимация для чайника (например пара)?

Program CHAINIK;
uses graphABC; 
begin 
setwindowsize(350,300); 
setpenwidth(3); 
line(50,280,80,100); 
line(230,280,200,100); 
line(50,280,230,280); 
line(52,260,228,260); 
line(210,150,270,70); 
line(215,200,295,70); 
line(270,70,295,70); 
setbrushcolor(clred); 
rectangle(80,80,200,100); 
arc(140,100,60,0,180); 
line(130,40,125,20); 
line(150,40,155,20); 
line(125,20,155,20); 
floodfill(140,30,clblack); 
floodfill(140,275,clyellow); 
floodfill(140,50,clskyblue); 
floodfill(140,120,clskyblue); 
floodfill(250,110,clskyblue); 
end.

Program CHAINIK;
uses graphABC; 
begin 
setwindowsize(400,300); 
setpenwidth(3); 
line(50,280,80,100); 
line(230,280,200,100); 
line(50,280,230,280); 
line(52,260,228,260); 
line(210,150,270,70); 
line(215,200,295,70); 
line(270,70,295,70); 
setbrushcolor(clred); 
rectangle(80,80,200,100); 
arc(140,100,60,0,180); 
line(130,40,125,20); 
line(150,40,155,20); 
line(125,20,155,20); 
floodfill(140,30,clblack); 
floodfill(140,275,clyellow); 
floodfill(140,50,clskyblue); 
floodfill(140,120,clskyblue); 
floodfill(250,110,clskyblue);
var x:=274; var y:=45; var r:=20;
setbrushcolor(clSilver); 
repeat 
  setbrushcolor(clSilver); 
  FillRoundRect(x,y, x+r,y+r,r div 2,r div 2);
  Sleep(70);
  setbrushcolor(clWhite); 
  FillRoundRect(x-2,y-2, x+r+2,y+r+2,r div 2,r div 2);
  x +=3; y-=3; r+=2;
  if x>(400) then begin x:=274; y:=45; r:=20 end;
until false; 
end.