[Yadro]

Попробывал переписать готовый код с байсика, но устественно ничего не из этого не вышло:

Program cube;
var i,dir1,ix,iy,vel,rnd:integer;
x: array[0..50] of integer; 
y: array[0..50] of integer; 
xv: array[0..50] of integer; 
yv: array[0..50] of integer; 
ox: array[0..50] of integer; 
oy: array[0..50] of integer; 


procedure main;

Begin
  For i:= 0 to 50 do
  begin
   x[i]:= 0;
   y[i]:= 0; 
   dir1:=trunc(Rnd * 6.28);
        vel:=trunc(Rnd * 5 + 1);
   xv[i]:= trunc(Sin(dir1) * vel);
   yv[i]:= trunc(Cos(dir1) * vel);
  end;

  ix:=Rnd * 320;
  iy:=Rnd * 200;

  For i:= 0 to 50 do
  begin
    drawLine(ox[i] + ix, oy[i] + iy,x[i] + ix, y[i] + iy);
    ox[i]:= x[i];
    oy[i]:= y[i];

    x[i]:= x[i] + xv[i];
    y[i]:= y[i] + yv[i];

    drawLine(x[i] + ix, y[i] + iy,x[i] + ix, y[i] + iy);
    repaint;
        delay(100);
    end;
end;

begin
repeat
SetColor(0, 0, 0);
FillRect(0, 0, GetWidth, GetHeight);
setcolor(255,255,255);
main;
repaint;
delay(100);
until keyToAction(getKeyClicked) <> GA_NONE;
End.