string Опции

[smith]

12. Дана строка s, содержащая менее чем 256 символов и представляющая собой набор слов, разделенных одним или несколькими пробелами. Найти любое слово в исходной последовательности символов, начинающееся с комбинации букв но. Использовать стандартные процедуры и функции в действиях над строками.

need help)

[volvo]

Бррр....

Что-то больно много переменных

Поскольку задачи сохранять выделенные из строки слова не стояло, то доп. переменные не нужны. А если показать вот такое решение преподавателю:

var s: string;
begin
  s := '  begin  end nothing     nowhere   eee';

  s := s + ' ';
  repeat
    s := copy(s, pos(' ', s), length(s));
    while (s <> '') and (s[1] = #32) do delete(s, 1, 1);
    if copy(s, 1, 2) = 'no' then writeln(copy(s, 1, pos(' ', s)));
  until s = '';

end.

, то еще неизвестно, кто пойдет служить