код из pascal в c++

можете помочь, пожалуйста, перевести код, с паскаля на с++


Const
MaxN=100000;
var
A,B,C,Num : array [1..MaxN] of longint;
N,i : longint;
procedure QSort_C_Down(L,R:longint);
var
i,j : longint;
x,t : longint;
begin
if L>=R then exit;
x := C[L]; i:=L-1; j:=R+1;
while i<j do
begin
repeat i:=i+1; until C[i]<=x;
repeat j:=j-1; until C[j]>=x;
if i<j
then begin
t:=C[i]; C[i]:=C[j]; C[j]:=t;
t:=A[i]; A[i]:=A[j]; A[j]:=t;
t:=B[i]; B[i]:=B[j]; B[j]:=t;
t:=Num[i]; Num[i]:=Num[j]; Num[j]:=t;
end;
end;
QSort_C_Down(L,j);
QSort_C_Down(j+1,R);
end;
begin
readln(N);
for i:=1 to N do read(a[i]);
for i:=1 to N do read(b[i]);
for i:=1 to N do C[i]:=A[i]+B[i];
for i:=1 to N do Num[i]:=i;
QSort_C_Down(1,N);
i:=1;
while (i<=N-1) and (B[i]>a[i+1]) do inc(i);
if i>N-1
then for i:=1 to N do write(Num[i],' ')
else writeln(-1);
end.

0