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

[R@f]

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

[volvo]

если в строке после последнего слова напечатать более 1 пробела, то прога виснит.

Само собой... Удаляй все ведомые пробелы еще до начала обработки:

  { Вот так }
  while words[length(words)] = ' ' do
    delete(words, length(words), 1);

  repeat
    word1:=copy(words,1,pos(' ',words));
    delete(words,1,pos(' ',words));
    while(words[1] = ' ') do delete(words, 1, 1);
    writeln(word1);
  until pos(' ',words)=0;
  writeln (words);