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;