Найти наибольшее слово в тексте

Подскажите что не так в коде, в отладке смотрю - всё верно, а в сообщение выводится почему то и первое слово и потом ещё несколько раз наибольшее.

&НаКлиенте
Процедура НайтиСлова(Команда)

    Перем НаибольшееСлово;
    МойТекст = СтрРазделить(Текст, " .,()!?№" + Символы.ПС, Ложь);

    Для Каждого Слово Из МойТекст Цикл
        Если СтрДлина(Слово) > СтрДлина(НаибольшееСлово) Тогда
             НаибольшееСлово = Слово
        КонецЕсли;
            Сообщить(НаибольшееСлово);
    КонецЦикла;

КонецПроцедуры