Анимация снеговика

Program ZaD_Snegovik;
Uses graph;
Var Device,mode:Integer;
Begin
     Device:=0;
     InitGraph(Device,Mode,'c:\Turbo');
     Setcolor(Brown);
     SetFillStyle(SolidFill,Brown);
     Bar(300,30,360,80);{shapka}
     SetColor(white);
     SetFillStyle(1,white);
     Circle(330,120,40);
     Circle(345,110,5);
     Circle(315,110,5);
     Line(320,140,340,140); {rot}
     SetColor(red); SetFillStyle(SolidFill,red);
     Line(330,120,330,130); {nos}
     Line(330,120,305,130); {nos}
     Line(330,130,305,130); {nos}
     SetColor(White);
     SetFillStyle(SolidFill,LightMagenta);
     Circle(330,220,60);
     Circle(330,360,80);
     Rectangle(350,163,455,183); {ryka}
     Rectangle(203,163,308,183); {ryka}
     SetColor(Red);
     Line(210,130,210,440);  {Posoh}
     Readln;
     CloseGraph
END.