// Использование ассоциативного массива Dictionary<string,integer> uses System.Collections.Generic; begin var d := new Dictionary<string,integer>; d['бегемот'] := 2; d['крокодил'] := d['бегемот']; d['крокодил'] += 1; d['жираф'] := 1;
var k: KeyValuePair<string,integer>; foreach k in d do writeln(k.Key:9,k.Value:3); end.