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

[R@f]

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

[Altair]

он мне выводит в столбик, но и ещё пробелы в столбик выводит

до
writeln (words);
напии
while pos(' ',words) <>0 do delete (words,pos(' ',words),1);
проверь только я не перепутал по памяти параметры у pos... (может наоборот не помню)

или у тебя прбелы как слова выводятсчя? тогда опять
if (words<>'') and (words<>' ') then writeln(words);