Добавлены процедуры заполнения массива