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

#include <bits/stdc++.h>

using namespace std;

int main()
{
    system("chcp 1251");
    string s;
    int k = 0;
    getline(cin, s);
    bool b = true;
    for(int i = 0; i < s.size(); ++i){
        if(s[i] == 'А' && b){
            ++k;
            b = false;
        }
        else if(s[i] == ' ')
            b = true;
    }
    cout << k << endl;
    return 0;
}

program String43;
var
 S:String;
 i,Num,NumA:integer;
 
begin
  Write('S: ');
  Readln(S);
 
  i:=1;
  Num:=0;
  NumA:=0;
 
  While (i<=Length(S)) do
   begin
    if (S[i]=' ') then
     begin
      if NumA>0 then inc(num);
      NumA:=0;
     end;
 
    if S[i]=chr(128) then inc(NumA);  //Если кодировка в консоли и в IDE совпадают, условие можно заменить на S[i]='А'
 
    inc(i);
   end;
  Writeln(Num);
end.