1С 8.x : Разбить составное слово

 Функция РазбитьСоставноеСлово(Слово)

    Рез=Лев(Слово,1);

    Для Индекс=2 по СтрДлина(Слово) цикл

        Символ=Сред(Слово,Индекс,1);

        Символ1 = ?(Индекс+1 <= СтрДлина(Слово),Сред(Слово,Индекс+1,1),Символ);

        Символ2 = ?(Индекс+2 <= СтрДлина(Слово),Сред(Слово,Индекс+2,1),Символ);

        Рез=Рез+?(ВРег(Символ)=Символ,?(ВРег(Символ1)=Символ1,Символ," "+НРег(Символ)),?(ВРег(Символ1)=Символ1 И ВРег(Символ2)=Символ2,НРег(Символ)+" ",Символ));

    КонецЦикла;

    Возврат Рез;

КонецФункции