Строки, слова в строке Опции

[R@f]

Люди!!! Плиз. Не могу сообразить, как вывести все слова данной строки в столбик?

[R@f]

ОГРОМАДНЕЙШЕЕ СПАСИБО!!! В принципе, я так и думал, но не мог записать. Писал то s[1]<>0, то s<>’ ‘. Ещё раз thank you. А вот со словами в столбик я не разобрался. Там слишком мудрёные способы. А у меня то задачка совсем простенькая: «Дана строка символов. Получить все слова, расположенные после первого и до второго двоеточия. Если второго двоеточия нет, то получить все слова после первого двоеточия до конца строки.» С двоеточиями я разобрался, там всё путём. А вот как эти долбанные слова в столбик вывести, я не могу допереть.
Пишу

repeat 
            word1:=copy(words,1,pos(‘ ‘,words));
            delete(words,1,pos(‘ ’,words));
            writeln(word1);
             until pos(‘ ‘,words)=0;
             writeln (words);

И он мне выводит в столбик, но и ещё пробелы в столбик выводит. Как их удалить?
Помоги, горю, может свой вариант есть?

Сообщение отредактировано: volvo - 20.11.2005 18:36