Задача по проверке слов в предложении., Проблема в выделении слова из текста. Опции

[kost85]

Здравсвуйте.
Есть такая задача.
Вводится строка. Требуется в ней перебрать все слова и проверить их на что-то. Другими словами вычленить слова из строки.
Сначала забивал все слова из строчки в (array [1..n] of string) - все было отлично. Теперь препод хочет что бы я забивал каждое слово в другую строку и проверял ее. Вот не пойму, как сразу в цикле перебора строки получать слово , записывать его в перем. типа string , затем проверять(ну это все под контр-ем), а затем сбрасывать и снова записывать очередное слово...
Может кто сталкивался.
Заранее огромное спасибо.

[kost85]

  
 i:=1;
 m:=length(s);

   for j:=1 to m do
     if s[j]<>' '  then begin
       word[i]:=s[j];
       inc(i);
     end;
     word[0]:=chr(i-1);
     writeln(word);
      if not ispalindrome(word) then
        if not iseven(word) then
          writeln('false')
        else
          writeln('true');

в результате если исх строка состоит из 2 слов - то он в word записывает эти два слова - и соответственно проверка не идет....