[Yadro]

Вот так-то лучше)

Program explosions;
Var
  dlina,i,skorost:integer;
  si:array[0..50] of integer;
  co:array[0..50] of integer;
  x2:array[0..50] of integer;
  y2:array[0..50] of integer;
  x1:array[0..50] of integer;
  y1:array[0..50] of integer;
 


begin
dlina:=20;
skorost:=10;
for i:= 0 to 50 do
  begin
  x1[i]:=getwidth/2;
  y1[i]:=getheight/2;
  si[i]:=random(360);
  co[i]:=random(360);
  x2[i]:=x1[i]+trunc(sin(si[i])*dlina);
  y2[i]:=y1[i]+trunc(cos(co[i])*dlina);
  drawline(x1[i],y1[i],x2[i],y2[i]);
  end;
repaint;
delay(skorost);

//***********************************
repeat
SetColor(255, 255, 255);
FillRect(0, 0, GetWidth, GetHeight);
  for i:= 0 to 50 do
    begin
    x1[i]:=x2[i];
    y1[i]:=y2[i];
    x2[i]:=x1[i]+trunc(sin(si[i])*dlina);
    y2[i]:=y1[i]+trunc(cos(co[i])*dlina);
    setcolor(0,0,0);
    drawline(x1[i],y1[i],x2[i],y2[i]);
    end;
    
repaint;
delay(skorost);
until (false);
//***********************************
end.