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

#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(224))
                s[i] = 'я';
            else if(s[i] == char(192))
                s[i] = 'Я';
        }
    }
    cout << s;
    return 0;
}

program String64;
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
       129..159,161..173,225..239:  S[i]:=chr(ord(S[i])-1);
       128: S[i]:=chr(159);
       224: S[i]:=chr(175);
       160: S[i]:=chr(239);
      end;
      inc(i);
    end;
   end;
  Writeln(S);
end.