Разбить строку с заглавными буквами на отдельные слова в 1С

Как преобразовать строку с большими буквами, вида ЗадачаПоПрограммированию в Задача по программированию в 1С

Вариант 1

Функция РазбитьСтр(СтрокаДляРазбора) Экспорт

ГотоваяСтрока = Сред(СтрокаДляРазбора, 1, 1);

Для Сч = 2 По СтрДлина(СтрокаДляРазбора) цикл

ПредыдСимвол = Сред(СтрокаДляРазбора, Сч - 1, 1);

ТекущСимвол = Сред(СтрокаДляРазбора, Сч, 1);

СледующСимвол = Сред(СтрокаДляРазбора, Сч + 1, 1);

Если ВРЕГ(ТекущСимвол) = ТекущСимвол тогда

Если ВРЕГ(ПредыдСимвол) <> ПредыдСимвол тогда

ГотоваяСтрока = ГотоваяСтрока + " ";

Если ВРЕГ(СледующСимвол) <> СледующСимвол тогда

ТекущСимвол = НРЕГ(ТекущСимвол);

КонецЕсли;

ГотоваяСтрока = ГотоваяСтрока + ТекущСимвол;

КонецЦикла;

Возврат ГотоваяСтрока;

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

Вариант 2

СписокЗн = Новый СписокЗначений;

Для н=КодСимв("А") По КодСимв("Я") Цикл

СписокЗн.Добавить(Символ(н));

КонецЦикла;

Знач="ЗадачаПоПрограммированию";

ЗначениеВозврата="";

Для н=1 По СтрДлина(Знач) Цикл

Симв=Сред(Знач,н,1);

Если СписокЗн.НайтиПоЗначению(Симв) <> Неопределено Тогда

Симв=" "+Симв;

КонецЕсли;

ЗначениеВозврата=ЗначениеВозврата+Симв;

КонецЦикла;

Сообщить(ЗначениеВозврата);