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

#include <bits/stdc++.h>

using namespace std;

int main()
{

    system("chcp 1251");
    string s;
    getline(cin, s);
    int k = 0, pos = s.find_first_of(",!)(-.:;");
    while(pos + 1){
        ++k;
        pos = s.find_first_of(",!)(-.:;", pos + 1);
    }
    cout << k;
    return 0;
}

program String53;
var
 S:String;
 i,Num:integer;
 
begin
  Write('S: ');
  Readln(S);
 
  i:=1;
  Num:=0;
  While (i<=Length(S)) do
   begin
    if ord(S[i]) in [32,33,34,40,41,44,45,46,58,59,63] then inc(Num);
    //32-' ' 33-'!' 34-'"' 40-'(' 41-')' 44-',' 45-'-' 46-'.' 58-':' 59-';' 63-'?'
 
    //обработка многоточия
    if i>3 then
     if (s[i-2]='.') and (s[i-1]='.') and (s[i]='.') then dec(Num,2);
 
    inc(i);
   end;
  Writeln(Num);
end.