まず列挙型と配列のおさらい type TGender = (Male, Female); // これが列挙型 var population: array[TGender] of UInt64; // こうやって添字に指定できる begin population[Male] := 15; population[Female] := 20; end; 列挙型の一部を添字にしたいとき t…