Изменена раздача

1) Удалён лишний массив и вынесено в отдельную процедуру