Цикл в 1С - Написать программу, выделяющую во введенном слове каждую букву «а» с помощью тире справа и слева.

[Мария19043]

Написать программу, выделяющую во введенном слове каждую букву «а» с помощью тире справа и слева.

Процедура Задание2(Команда)
	Перем а; 
	ВвестиСтроку(а, "введите слово"); 
	ДлинаСлова = СтрДлина(а);
	Счетчик = 0;
	Для i = 1 По ДлинаСлова Цикл
		Если Сред(а, i, 1) = "а" Тогда
			а=СтрЗаменить(а,"а", "-а-"); 
				 
	  	КонецЕсли;
	КонецЦикла;   
	Сообщить (а);
КонецПроцедуры

выводит тире столько раз, сколько кол-ва букв в слове
аня - выводит ---а---ня
как исправить?

[Аватар]

СтрЗаменить заменяет сразу все вхождения подстроки в строку. А ты в цикле её ) Если циклом, то посимвольный перенос в другую переменную

стр = "";
Для i = 1 По ДлинаСлова Цикл
  стр = стр + ?(Сред(а, i, 1) = "а", "-а-", Сред(а, i, 1));
КонецЦикла;

[Мария19043]

что-то не работает..

[Аватар]

Бывает, не везет тебе )