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

[Olgaandsasha]

помогите пожалуйста перевести код из паскаля в с++, чтоб принцип работы был такой же

Program Cipher1;
const
txt1='Љгаб ¤®««*а* ў®§¬®¦*® Ї®ўлбЁвбп. ЊҐ*п©вҐ агЎ«Ё ** ¤®««*ал!'#10;
txt2='?Ёда®ў**ЁҐ б«гз*©*®©  ЇҐаҐбв**®ўЄЁ бЁ¬ў®«®ў';
FileName='Cipher.txt';
var
I:byte;
C:char;
Line:string[$FF];
CryptTab:array[1..255] of byte;
F:text;
begin
Line:=txt1+txt2;
Writeln (Line);
Assign (F,FileName);
Rewrite (F);
Writeln (F, Line);
Close(F);
Reset(F);
Readln(F,Line);
Close(F);
Erase(F);
Writeln(Line);
Line:=txt1+txt2;
Randomize;
for I:=1 to Length (Line) do
CryptTab[I]:=Succ(Random(Length(Line)));
for I:=1 to Length (Line)do begin
C:=Line[I];
Line [I]:= Line [CryptTab[I]];
Line [CryptTab[I]]:=C
end;
Writeln (Line);
for I:=Length(Line) downto 1 do begin
C:=Line[I];
Line[I]:=Line [CryptTab[I]];
Line [CryptTab[I]]:=C
end;
Write(Line);
Writeln;
Halt;
end.