Анимация разноцветного "снега"

uses graphABC;
var i,j: integer;
begin
lockdrawing;                         //блокирует вывод в графическое окно, осуществляя рисование только во внеэкранном буфере
SetWindowTitle('С Новым Годом!');    //задает заголовок окна
setwindowsize(600,400);               //устанавливает размер окна
 
for i:=1 to 1000 do                   //цикл с параметром для анимации
begin                                   //начало подпрограммы
clearwindow;                            //очистка окна
{рисуем фон от черного к белому}
setpencolor(clblack);                   //назначить цвет пера = черный
setbrushcolor(clblack);                 //назначить цвет кисти (то есть заливка круга или квадрата) = черный
rectangle(0,0,600,150);                 //прямоугольник
 
setpencolor(clnavy);                    //назначить цвет пера
setbrushcolor(clnavy);                  //назначить цвет кисти
rectangle(0,150,600,250);               //прямоугольник
setpencolor(clwhite);                    //назначить цвет пера
setbrushcolor(clwhite);                  //назначить цвет кисти
rectangle(0,250,600,400);                //прямоугольник
{рисуем ель}
setpencolor(clgreen);                    //назначить цвет пера
line(200,350,300,50);                    //линия
line(300,50,400,350);                    //линия
line(400,350,200,350);                   //линия
floodfill(300,100,clgreen);              //заливка области
floodfill(300,200,clgreen);              //заливка области
floodfill(300,300,clgreen);               //заливка области
{рисуем ствол}
setpencolor(clbrown);                     //назначить цвет пера
setbrushcolor(clbrown);                   //назначить цвет кисти
rectangle(280,350,320,380);               //прямоугольник
{выводим текст}
setbrushcolor(clblack);                   //назначить цвет фона для текста
SetFontColor(clyellow);                   //назначить цвет текста = желтый
SetFontSize(30);                          //установить размер шрифта = 30
SetFontName('Times');                     //установить стиль шрифта = Таймс
TextOut(20,20,'С Новым');                 //вывести текст
TextOut(420,20,'Годом!!!');               //вывести текст
{рисуем снег}
for j:=1 to 100 do                        //задаем  вложенный цикл
    begin                                 //начало подпрограммы
    setbrushcolor(rgb(random(255),random(255),random(255)));               //назначить цвет кисти
    setpencolor(rgb(random(255),random(255),random(255)));                 //назначить цвет пера
    circle(random(600),random(400),3);    //нарисовать круг со случайными координатами центра в пределах окна
    end;
 
sleep(100);                               //задержка
redraw;                                   //перерисовка
end;
 
end.