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

#include <bits/stdc++.h>

using namespace std;

int main()
{
    system("chcp 1251");
    string s;
    getline(cin, s);
    int k = 0;
    char c;
    cin >> c;
    while(s[0] != c){
        if(s[0] > char(224) && s[0] <= char(255))
            s[0] = char(int(s[0]) - 1);
        else if(s[0] > char(192) && s[0] <= char(223))
            s[0] = char(int(s[0]) - 1);
        else if(s[0] == char(224))
            s[0] = 'я';
        else if(s[0] == char(192))
            s[0] = 'Я';
        ++k;
    }
    while(k--){
        for(int i = 1; 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 String65;
var
 S:String;
 i,i2,K:integer;
 C:char;
 
begin
  Write('S: ');
  Readln(S);
  Write('C:');
  Readln(C);
  case ord(C) of
   128..159 : K:=ord(S[1])-ord(C);
   160..175 : if ord(S[1]) in [160..175] then K:=ord(S[1])-ord(C)
              else K:=ord(S[1])-48-ord(C);
   224..239 : if ord(S[1]) in [224..239] then K:=ord(S[1])-ord(C)
              else K:=ord(S[1])+48-ord(C);
 
  end;
  Writeln(K);
  if k<0 then K:=32+k;
  Writeln(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.