Вывести на экран снежинки и шарики - PascalABC.NET

uses
  graphabc;
 
var i:integer; ran:byte;
 
procedure st(x, y: integer);
begin
  setpencolor(clrandom);;
  MoveTo(x, y);
  Lineto(x + 5, y - 10);
  MoveTo(x, y);
  Lineto(x - 5, y - 10);
  MoveTo(x, y);
  Lineto(x + 5, y + 10);
  MoveTo(x, y);
  Lineto(x - 5, y + 10);
  MoveTo(x, y);
  Lineto(x + 10, y - 5);
  MoveTo(x, y);
  Lineto(x - 10, y - 5);
  MoveTo(x, y);
  Lineto(x + 10, y + 5);
  MoveTo(x, y);
 Lineto(x - 10, y + 5);
end;
 
procedure shar(x, y: integer);
begin
  setpencolor(clrandom);;
  circle (x,y,10);
end;
 
begin
  setbrushcolor (color.Empty);
  clearwindow (clblack);
  for i:=1 to 60 do
  begin
  st(random(320),random (460));
  end;
end.