Удаление повторяющихся символов из строки

Доброго времени суток, тут вот какая проблема.Вводится строка. Требуется удалить из нее повторяющиеся символы и
все пробелы. Например, если было введено "abc cde def", то должно быть
выведено "abcdef". (это просто частный случай). Для него я написал код ниже. Но надо для общего случая написать.

СтрокаИсходная = "abc cde def";

Строка = СтрЗаменить(СтрокаИсходная, " ", "");

СимволыСтроки = Новый Соответствие;
Подстроки = Новый Массив;
НачалоСтроки = 1;

Для Сч = 1 По СтрДлина(Строка) Цикл
Символ = Сред(Строка, Сч, 1);
Если Символ = "" Тогда
Прервать;
ИначеЕсли СимволыСтроки[Символ] = Неопределено Тогда
СимволыСтроки[Символ] = Истина;
Иначе
Строка = СтрЗаменить(Строка, Символ, "");
КонецЕсли;
КонецЦикла;