тающий снеговик

[Olga2010]

я написала программу в Паскале, но снеговик почему-то не закрашивается еще у меня проблема с его движением. нужно, чтобы снеговик был цветной, таял и был соответствующий звук.

program snegowik;
uses graph,crt;
var gd,gm:integer; x,y,i: integer;
begin
gd:=detect;
initgraph(gm,gd,'c:\bp\bgi');
i:=20;
while i< 3000 do
   begin
   sound(i);
   delay(100);
   i:=i+20;
   end;
       x:=30;
      for y:=100 to 480 do
      begin
      setcolor(0);
      setfillstyle(1,15);
      fillellipse(300,y,x,x);
      setcolor(0);
      setfillstyle(1,6);
      moveto(290,y-60);
      lineto(320,y-30);
      lineto(310,y-60);
      lineto(290,y-60);
      setcolor(0);
      setfillstyle(1,0);
      fillellipse(288,y-10,2,2);
      fillellipse(312,y-10,2,2);
      setcolor(0);
      line(295,y+20,305,y+20);
       setcolor(0);
      setfillstyle(1,4);
      moveto(300,y-2);
      lineto(275,y+6);
      lineto(300,y+6);
      lineto(300,y-2);


      setfillstyle(1,15);
      fillellipse(300,y+80,x+20,x+20);
      setcolor(0);
      setfillstyle(1,15);
      fillellipse(235,y+80,x-15,x-12);
      setfillstyle(1,15);
      fillellipse(365,y+80,x-15,x-12);
       setcolor(0);
      setfillstyle(1,0);
      fillellipse(300,y+65,3,3);
      setfillstyle(1,0);
      fillellipse(300,y+85,3,3);


        setfillstyle(1,15);
      fillellipse(300,y+200,x+40,x+40);
      setfillstyle(1,0);
      fillellipse(300,y+180,3,3);
      setfillstyle(1,0);
      fillellipse(300,y+200,3,3);
      setfillstyle(1,0);
      fillellipse(300,y+220,3,3);
      delay(100);
      cleardevice;
      end;
  nosound;
  readln;
  closegraph;
  end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.