Нарисовать снежинки, которые медленно падают - Pascal ABC

uses graphABC;
const n=200;
procedure snezinka(x,y:integer);
var u:real;
    r,i:byte;
begin
u:=pi/2;
setpencolor(clWhite);
r:=4+random(4);
for i:=1 to 6 do
 begin
  line(x,y,x+round(r*cos(u)),y-round(r*sin(u)));
  u:=u+pi/3;
 end;
end;
var a:array[1..2,1..n]of integer;
    i:integer;
begin
randomize;
centerwindow;
for i:=1 to n do
 begin
  a[1,i]:=random(windowwidth);
  a[2,i]:=random(windowheight);
 end;
lockdrawing;
repeat
clearwindow(clBlue);
for i:=1 to n do
snezinka(a[1,i],a[2,i]);
sleep(50);
for i:=1 to n do
 begin
  a[2,i]:=a[2,i]+2;
  if a[2,i]>windowheight then a[2,i]:=0;
 end;
redraw;
until false;
end.