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

[kost85]

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

[Артемий]

Вот тебе цикл разбиения и записи в переменную...Надеюсь ты это имел ввиду!

var
a: array [1..10] of string;
s,s1,locs: string;
i,o,p,kj: Integer;
ch: Char;
begin
writeln('Vvedite predlogenie: ');
readln(s);
kj:=0;
p:=1;
s1:=s;
for i:=1 to 10 do begin
  ch := s[i];
  if (ch in [' ',';','/','\',':','-','=',',','.','!','?','(',')']) or (i = 10) then
   begin
    if i = 10 then
    a[p] := Copy(s1,kj+1,i-kj)
    else
    a[p] := Copy(s1,kj+1,i-kj-1);
    kj := i;
    p:=p+1;
 end;
end;
for i:=1 to 10 do begin
 locs:=a[i];
 {Сдесь производи нужные действия и проверки над locs}
end;
readln

Добавлено через 1 мин.
(может способ немного "насилованный" )