Создать анимированный салют

 uses  crt,graphABC;
type mas=array [1..1000] of integer;
var i,x,y: integer;
    a,b: mas;
procedure CHEL1(x,y: integer);
begin
setbrushcolor(clwhite);
circle(x,y,10);
circle(x-20,y+30,6);
circle(x+20,y+30,6);
setbrushcolor(clBlack);
circle(x-10,y+65,6);
circle(x+10,y+65,6);
setbrushcolor(clMaroon);
ellipse(x-15,y+10,x+15,y+60);
end;
procedure CHEL2(x,y: integer);
begin
setbrushcolor(clwhite);
circle(x,y,10);
setbrushcolor(clBlack);
circle(x,y+65,6);
setbrushcolor(clMaroon);
ellipse(x-15,y+10,x+15,y+60);
setbrushcolor(clwhite);
circle(x,y+30,6);
end;
procedure fon (a,b: mas);
var i,x,y: integer;
begin
randomize;
setPenColor(clBlack); setBrushColor(clBlack);
rectangle (0,0,800,400);
For i:=1 to 1000 Do
     begin
     X := round (random (800));
     Y := round (random (400));
     putpixel (x, y,clYellow);
     end;
setbrushcolor(clSkyBlue);
rectangle(0,400,800,600);
end;
begin
setwindowsize(800,600);
lockdrawing;
hidecursor;
repeat
x:=900; y:=400;
for i:=1 to 90 do
    begin
clearwindow;
    fon(a,b);
    if i mod 2=0 then CHEL1(x,y)
       else CHEL2(x,y);
    x:=x-10;
    sleep(200);
    redraw;
    end;
until keypressed;
end.