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

#include <bits/stdc++.h>

using namespace std;

int main()
{
    system("chcp 1251");
    string s;
    getline(cin, s);
    int k;
    cin >> k;
    while(k--){
        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 String63;
var
 S:String;
 i,i2,K:integer;
 
begin
  Write('S: ');
  Readln(S);
  Write('K:');
  Readln(K);
 
  for i2:=1 to K do
   begin
    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;
   end;
  Writeln(S);
end.