array_auto_index

program array_test;

type
   TArrayMy = array[1..10] of integer;
var
   ar   : TArrayMy;
   i,t  : integer;
begin
   { llenar con ceros }
   t:=1;
   for i:=1 to sizeof(ar)-1 do
   begin
      ar[i]:=t;
      inc(t);
   end;

   for i in ar do writeln(ar[i]);


end.