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

#include <bits/stdc++.h>

using namespace std;

int main()
{
    system("chcp 1251");
    string s;
    getline(cin, s);
    s+=" ";
    s.insert(0, 1, ' ');
    int k = 0;
    int pos = s.find(' '), pos1 = pos;
    while(pos + 1){
        pos1 = s.find(' ', pos + 1);
        if(s[pos + 1] == s[pos1 - 1] && s[pos1 - 1] != ' ' && s[pos + 1] != ' '){
            ++k;
        }
        pos = pos1;
    }
    cout << --k << endl;
    return 0;
}

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