Глава_01

Индекс = 0;
Слово = "";
Буфер=СокрЛП(Строка1);//убрали пробелы по краям

Пока(0 < Найти(Буфер," ")) Цикл

//начнем поиск
Если(0 < Найти(Буфер," "))Тогда //пробел есть

Индекс=Найти(Буфер," "); //найти пробел
Слово=Лев(Буфер,Индекс); //строка до пробела
Сообщить(Слово);

Иначе

Слово=Буфер; //Пробела нет. Выведем слово.
Индекс=СтрДлина(Буфер);//Найти конец слова
Сообщить(Слово);

КонецЕсли;

// сохраним в Темп строку без первого слева слова
Темп=Прав(Буфер,(СтрДлина(Буфер)-Индекс));
Буфер=СокрЛ(Темп);//уберем пробелы слева

КонецЦикла;

Слово=Буфер; //Пробела нет. Выведем слово.
Сообщить(Слово);