Функция текста наоборот

[lilmillioner]

Подскажите как написать процедуру чтоб при вводе текста на выходе было задом наперед. Например ввод ДОМ вывод МОД

[Yura063]

просто руками!!!

Код Выделить Развернуть


а = 1;
СтрНаОб = "";
длина = ДлинаСтр(Стр);
пока а<>Длина Цикл
      СтрНаОб = СтрНаОб + сред(Стр,Длина-а,1);
      а = а + 1;
КонецЦикла;
Сообщить(СтрНаОб); // для проверки!!!

Вроде все но могут быть не точности! 

[Yura063]

можно это же  сделать с циклом ДЛЯ

[lilmillioner]

Спасибо ща проверим...))