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

[kost85]

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

[T i m e]

Вот примерно так это должно выглядить (один из вариантов):

Код

var S,word:string;
    i,j: integer;
begin
clrscr;
write('Sentence>> : ');
readln(S);
repeat
  repeat
   if s[1] = ' ' then delete(s,1,1);
  until s[1] <> ' ';
if s <> '' then
    if pos(' ',s) > 0 then word := copy(s,1,pos(' ',s)-1)
     else word := s;
{вот мы получили наше слово и далее здесь же можем делать
  с ним чё хочешь, любые условия ставить и т.д}  
  {При повторение цикла на этом этапе мы будем получать очередное слово в предложение}
until S = '';
end;

Ну, если у тебя предложение со знаками припинания, то этот факт тоже учитывать надо будет...