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

[kost85]

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

[kost85]

var S,word:string;
    i,j: integer;
begin
  clrscr;
  write('Sentence>> : ');
  readln(S);
  i := 1;
  for j := 1 to length(S) do begin
    if S[j]<>' ' then begin
      word[i]:=s[j];
      i:=i+1;
      word[0]:=chr(i-1);
   end;
      if not isPalindrome(word) then
        writeln('Asimmetrical word is  ', word, ' - ', IsEven(word))
      else
        writeln('''',word,'''',' - is a palindrome');

To Time:
Не пойму в какой кусок цикла проверку делать. Вот в этом коде он в word пишет столько слов, сколько было в предложении...