Проблемка с функцией pos() строки

[pray_driver]

Сообщение от Риндера

У меня все-таки с ошибкой вылетает... Может из-за того что пишу в делфи,а не турбопаскале...

а у меня почему-то Вашу программу циклит бесконечно

[_-Re@l-_]

Считать слова в строке можно так:

Uses CRT;
Var
   S:String;
   N,I:Integer;
   IsWord:Boolean;
Begin
     Clrscr;
     Write('Enter S:');
     Readln(S);
     N:=0;
     IsWord:=False;
     For I:=1 To Length(S) Do
     Begin
          If S[I] in [' ','.',',',':',';','!','?'] Then
          IsWord:=False
          Else
          If not IsWord then begin Inc(N);IsWord:=True;end;
     End;
     Write('N = ',N);
     Readln;
End.

[Риндера]

Слова считать не нужно!))))
Вот нормальный работающий код

var st, word: string;
    i, k, sum: integer;
begin
sum := 0;
read(st);
repeat
  if pos(' ', st) = 0 then st := st + ' ';
  k := pos(' ', st);
  word := copy(st,1,k-1);
  if word[1] = word[length(word)] then sum:=sum+1;
  delete(st, 1, k);
  st:=trim(st);
until pos(' ', st) = 0;
writeln('Number of words: ', sum);
readln(i);
end.

pray_driver, это всё конечно хорошо, но я все-таки путаюсь с этими булевыми переключателями)

[_-Re@l-_]

Слова считать не нужно!))))

Так я просто так привёл пример кода...

[Риндера]

Сообщение от _-Re@l-_

Так я просто так привёл пример кода...

Ну молодец-молодец, держи тогда плюсик