Функция перестановки двух элементов массива

Лень было писать самому, попросил ИИ, написал, правда с шагом минус один, но я попросил поправить, поправил. Вот код, работает:

&НаКлиентеНаСервереБезКонтекста
Процедура ПереставитьЭлемент(Массив, Источник, Приемник)
	
    Если Источник = Приемник Тогда
        Возврат;
    КонецЕсли;

    Элемент = Массив[Источник];

    Если Источник < Приемник Тогда
        Для Индекс = Источник По Приемник - 1 Цикл
            Массив[Индекс] = Массив[Индекс + 1];
        КонецЦикла;
    Иначе
        Для Смещ = 0 По Источник - Приемник - 1 Цикл
            Массив[Источник - Смещ] = Массив[Источник - Смещ - 1];
        КонецЦикла;
    КонецЕсли;

    Массив[Приемник] = Элемент;
КонецПроцедуры

В общем, можно не учиться этому, а довериться ИИ.