[Caminante]

Algo asi???

Código Delphi [-]
Var
 i:integer;
 MyArray:Array[1..7]of word;
begin
 for i:=1 to 7 do
 MyArray[i]:=i;
end;

Espero te sirva.

Saludos