Подсчет слов (строки)

[isst]

Всем здравствуйте! Решаю вот такую задачу:

Дана строка, возможно, содержащая пробелы. Определите количество слов в этой строке. Слово — это несколько подряд идущих букв латинского алфавита (как заглавных, так и строчных).

Решение оформите в виде функции CountWords (S), возвращающее значение типа int. При решении этой задачи нельзя пользоваться дополнительными строками и списками.

Ввод
Yesterday, all my troubles seemed so far away

Вывод
8

Если кому интересно, это №111313 на informatics.mccme.ru

И вроде все правильно делаю, а все тесты не проходит...

16 тестов из 22:

var s:StRing;
    i, n:IntegeR;
    f:bOOlean;
    
begin
  readln(s);
  n:= 0;
  f:= true;
  for i:= 1 to length(s) do
  begin
    if (s[i] <> ' ') and f then inc(n);
    f:= (s[i] = ' ');
  end;
  writeln(n);
end.

17 из 22

var s:StRing;
    index, count:LongInt;

begin
  readln(s);
  count:= 0;
  if not(s = '') then begin
  index:= 1;
  while (index <= Length(s)) do
  begin
    if not(s[index] in ['A'..'Z', 'a'..'z', ' ']) then Delete(s, index, 1);
    inc(index);
  end;
  while (Pos('  ', s) > 0) do Delete(s, Pos('  ', s), 1);
  if (s[1] = ' ') then Delete(s, 1, 1);
  while (s[Length(s)] = ' ') do Delete(s, Length(s), 1);
  while (Length(s) > 0) do
  begin
    index:= 1;
    while (index <= Length(s)) and (s[index] <> ' ') do inc(index);
    Delete(s, 1, index);
    inc(count);
  end;
  end;
  writeln(count);
end.

Помогите разобраться, пожа-алуйста!

[Poma][a]

На фряхе :

uses StrUtils;
var
	s : string;
begin
	ReadLn(s);
	WriteLn(WordCount(s, StdWordDelims))
end.

[isst]

Сообщение от Poma][a

На фряхе :

uses StrUtils;
var
	s : string;
begin
	ReadLn(s);
	WriteLn(WordCount(s, StdWordDelims))
end.

О-о, Ром, спасибо, ток он проходит 20 из 22
Щас буду разбираться...

[FPaul]

Причём здесь Pos.
внешний цикл пока индекс в пределах строки
Два внутренних цикла - пропуск "пробелов и разделителей", пропуск символов слова (СчётчикСлов++).
--------------
Скорее всего Delimiters неприменим, нужно действовать наоборот - с разрешённых символов.

Еще может быть ввод не помещается в 255 символьный тип паскаля. нужна потокавая обработка.

[isst]

Сообщение от FPaul

Еще может быть ввод не помещается в 255 символьный тип паскаля. нужна потокавая обработка.

Не-а, посмотрел насчет длинных строк, не в этом дело...
Буду реализовывать Ваш алгоритм, спасибо!

[Poma][a]

uses StrUtils;
var
	s : string;
begin
	ReadLn(s);
	WriteLn(WordCount(s, [#0..#255]-['a'..'z']-['A'..'Z']))
end.

[isst]

Сообщение от Poma][a

uses StrUtils;
var
	s : string;
begin
	ReadLn(s);
	WriteLn(WordCount(s, [#0..#255]-['a'..'z']-['A'..'Z']))
end.

Все работает, Ром, респект. Спасибо, что рассказал про модуль StrUtils!