Написать программу, которая рисует взрыв

var x1,y1: integer;
begin
x1:= Gx div 2; y1:= Gy div 2;
for i:=1 to 300 do begin
X[i]:= x1+ i mod 10;
Y[i]:= y1+ i div 10;
PutPixel(X[i], Y[i],
15);
VX[i]:= -10 + random(21);
VY[i]:= -10 + random(21)
end;
SetColor(5); Rectangle(x1, y1, x1+9, y1+30); 
ch:= ReadKey; 
for i:=1 to 100 do begin
sound(random(80)); delay(1); nosound 
end;
SetColor(0); Rectangle(x1, y1, x1+9, y1+30); 
Repeat
for i:=1 to 300 do begin
if(X[i]+VX[i] > 0) and (X[i]+VX[i] < Gx) and
(Y[i]+VY[i] > 0) and (Y[i]+VY[i] < Gy)
then begin 
PutPixel(X[i],Y[i],0); X[i]:= X[i]+VX[i]; Y[i]:=
Y[i]+VY[i];
PutPixel(X[i], Y[i], 14) end 
else begin VX[i]:= 0; VY[i]:= 0;
sound(200); delay(2); nosound end
end
Until Keypressed;

uses
  crt,graph;
var
  x1, y1: integer;
  gd,gm: integer;
  vx,vy,x,y:array [1..1000] of integer;
  i: integer;
  ch:char;
 
begin
  gd:=VGA;
  gm:=VGAHi;
  initGraph(gd,gm,'');
  x1 := GetMaxX div 2; y1 := GetMaxY div 2;
  for i := 1 to 300 do
  begin
    X[i] := x1 + i mod 10;
    Y[i] := y1 + i div 10;
    PutPixel(X[i], Y[i], 15);
    VX[i] := -10 + random(21);
    VY[i] := -10 + random(21)
  end;
  SetColor(5); 
  Rectangle(x1, y1, x1 + 9, y1 + 30);
  ch := ReadKey;
 
  SetColor(0); Rectangle(x1, y1, x1 + 9, y1 + 30); 
  repeat
    for i := 1 to 300 do 
    begin
      if(X [i] + VX[i] > 0) and (X[i] + VX[i] < GetMaxX) and (Y[i] + VY[i] > 0)
        and (Y[i] + VY[i] < GetMaxY) then 
      begin
        PutPixel(X[i], Y[i], 0); X[i] := X[i] + VX[i]; Y[i] :=
        Y[i] + VY[i];
        PutPixel(X[i], Y[i], 14)
      end
      else
      begin
        VX[i] := 0; VY[i] := 0;
      end;
    end;
  until Keypressed;
  readln;
  closegraph;
end.