89
type Cursor_Array is
   array (Count_Type range <>) of String_Integer_Maps.Cursor;
A : Cursor_Array (1 .. M.Length);
...
Populate_Cursor_Array:
declare
   I : Count_Type := A'First;
   procedure Process (C : String_Integer_Maps.Cursor) is
   begin
     A (I) := C;
     I := I + 1;
   end;
begin
   M.Iterate (Process'Access);
end Populate_Cursor_Array;