Один из способов - объявить ваш объект массивом, индексированным по типу перечисления, значения которого являются идентификаторами.Например, если идентификаторы являются символами от A до Z, вы можете определить массив следующим образом:
subtype Index is Character range 'A'..'Z';
type Collection is array(Index) of Integer;
Idx : Index;
Value : Integer;
The_Collection : Collection;
while not End_Of_File(Input_File) loop
Get(Idx);
Get(Value);
Skip_Line;
The_Collection(Idx) := Value;
end loop;
Конечно, вам нужно будет «с» соответствующими пакетами ввода / вывода.