Llenar array

[[escafandra]]

Yo tampoco entiendo bien el asunto, faltan cosas. Creo que lo que pretende compuin es algo como esto:

Código Delphi [-]
var
  i, iflag: integer;
  xx:       array[0..5] of double;
  planet:   array [1..12] of double;
  serr:     PChar;
begin
  for i:= 1 to 12 do
  begin
    swe_calc_ut(Date.JulDay, i, iflag, xx[0], serr);
    planet[i]:= xx[0];
  end;
end;

Asumiendo que:
1.- Los indices de planeta van de 1 a 12 (pueden ser 0-11) según la función no documentada swe_calc_ut
2.- La fecha se sabrá y se inicializará.
3.- iflag se conocerá y se inicializará.

Saludos.