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

#include <bits/stdc++.h>

using namespace std;

int main()
{
    system("chcp 1251");
    string s;
    getline(cin, s);
    for(int i = 0; i < s.size(); ++i){
        if(s[i] >= char(224) && s[i] < char(255))
            s[i] = char(int(s[i]) + 1);
        else if(s[i] >= char(192) && s[i] < char(223))
            s[i] = char(int(s[i]) + 1);
        else if(s[i] == char(255))
            s[i] = 'а';
        else if(s[i] == char(223))
            s[i] = 'А';
    }
    cout << s;
    return 0;
}

program String62;
var
 S:String;
 i:integer;
 
begin
  Write('S: ');
  Readln(S);
 
  i:=1;
  while (i<=Length(S)) do
   begin
    case ord(S[i]) of
     128..158,160..174,224..238:  S[i]:=chr(ord(S[i])+1);
     159: S[i]:=chr(128);
     175: S[i]:=chr(224);
     239: S[i]:=chr(160);
    end;
    inc(i);
  end;
 
  Writeln(S);
end.