Разработчику о работе с 1С:Предприятие, Pascal, Паскаль

Количество слов в строке, паскаль.
Считаем, что все слова разделены символом один пробел, тогда:

program Kol_Word_Str;

  {Количество слов в строке, паскаль}
var
  i, n, i_SumNum: integer;
  s_Str: string;
begin
  s_Str := 'The green grass covered the whole glade';
  n := length(s_Str);
  i_SumNum := 0;
  WriteLn('Строка: ', s_Str);
  for i := 1 to n do
  begin
    if s_Str[i] = ' ' then
      Inc(i_SumNum); 
  end;
  Inc(i_SumNum); // учитываем последнее слово
  WriteLn('Количество слов в строке: ', i_SumNum);
  ReadLn();
end.

Результат:

Количество слов в строке, паскаль.