UnitProgramsList: New function SetUpArray.