Перевод кода с паскаля на си++.

[Anna.K]

Uses
crt;

Function decrypt(a:string):string;
Var i,k:integer;
Begin
For i:=1 to length(a) do
If (a[i] = 'А') or (a[i] = 'а') then Begin
k:=ord(a[i])+31;
a[i]:=chr(k);
End
else
If a[i] in ['Б'..'Я','б'..'я'] then Begin
k:=ord(a[i])-1;
a[i]:=chr(k);
End;
decrypt:=a;
End;

Function encrypt(a:string):string;
Var i,k:integer;
Begin
For i:=1 to length(a) do
If (a[i] = 'Я') or (a[i] = 'я') then Begin
k:=ord(a[i])-31;
a[i]:=chr(k);
End
else
If a[i] in ['А'..'Ю','а'..'ю'] then Begin
k:=ord(a[i])+1;
a[i]:=chr(k);
End;
encrypt:=a;
End;

Var
a:string;
mode:byte;
Begin
Readln(a);
Repeat
Write('Выберите режим (1-шифрование, 2-расшифрование): ');
Readln(mode);
Until (mode = 1) or (mode=2);
Case mode of
1:writeln(encrypt(a));
2:writeln(decrypt(a));
End;
End.