Заполнить списки филиалов и предприятий по зонам ответственности
procedure FillAreas(aBranches, aDepartments: TInt64List);