//========процедура сдвига всего 2-x мерного массива buf на 1 индекс========
ArraySetAsSeries(Pattern,true); //"переворачиваем" массив
ArrayCopy(Pattern, Pattern, ArrayRange(Pattern,1), 0);
ArraySetAsSeries(Pattern,false);//возвращаем в исходное значение