// Frequency counting using associative arrays
var text := 'the quick brown fox jumps over the lazy dog';
var words := text.Split(' ');
var counts: array [String] of Integer;

for var w in words do
  counts[w] := counts[w] + 1;

PrintLn('Word counts:');
for var w in counts.Keys do begin
  PrintLn('  ' + w + ': ' + IntToStr(counts[w]));
end;