Цикл в 1С - Программа, подсчитывающая, сколько раз последняя буква слова Х встречается в слове У.

[Мария19043]

Программа, подсчитывающая, сколько раз последняя буква слова Х встречается в слове У.

Срочно нужна помощь!!!
Кто нибудь работал в 1с?))))
Код 1C v 8.3

&НаКлиенте
Процедура Задание1(Команда)	
Перем a;	
Перем b;
ВвестиСтроку(a, "Введите 1 слово:",,);	
ВвестиСтроку(b, "Введите 2 слово:",,);
ПоследнийСимвол = Прав(a,1);
Сообщить ("Первое слово - " + a + " , Второе слово - "+ b +" . Ищем символ *" + ПоследнийСимвол +"* во 2 слове");
Результат = СтрЧислоВхождений (b,ПоследнийСимвол); 
Сообщить("В слове "+b+" буква "+ПоследнийСимвол+" встречается " +Результат+" раз.");
КонецПроцедуры

Как исправить и написать с помощью цикла? Помогите пожалуйста Возможно как то так (ниже), но не работает

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

[p51x]

Если ПоследнийСимвол = Слово2

Так не с целой строкой сравнивать надо, а последовательно с символами. Можете нарезать по 1.

[Аватар]

Для i = 1 По ДлинаСлова Цикл
  Если Сред(Слово2, i, 1) = ПоследнийСимвол Тогда
    Счетчик = Счетчик+1;
  КонецЕсли;
КонецЦикла;

[Мария19043]

Благодарю!!!!