Выдать статистику распределения количества объектов по блокам
procedure Statistic(aStat: PArrayInteger; aSection: integer);