Решение задачи String 41

# include <iostream>
# include <windows.h>
# include <cmath>
# include <iomanip>
# include <fstream>

using namespace std;
const int nmax = 100;
int main()
{
   SetConsoleCP(1251);
   SetConsoleOutputCP(1251);   
   
   char str[nmax] = "";
   ifstream in ("String41.txt");
   in.getline(str,sizeof(str));   
   cout << "Исходная строка:" << "\n";
   cout << str << endl; 
   int answer=0;
   char* ptr; 
   ptr = strtok(str, " ,."); 
   while(ptr!=NULL) {        
	   ptr = strtok(NULL, " ,.");  
	   ++answer;
   }  
   
   cout << "Количество слов в строке = " << answer << "\n";

   system ("pause");
}

program String41;
var
 S:String;
 i,Num:integer;
 
begin
  Write('S: ');
  Readln(S);
 
  i:=1;
  Num:=0;
  While (i<=Length(S)) do
   begin
    if (S[i]=' ') and (S[i-1]<>' ') then inc(Num);
    inc(i);
   end;
  Writeln(Num+1);
end.