Перевод кода из Pascal в C++

program z1;   
   uses crt;   
   var a : array [1..10] of longint;   
         b : array [1..20] of longint;   
         c : array [1..30] of longint;   
         n, m, k, l, i, j, min : longint;   
 begin   
   clrscr;   
   write ('введ. кол. эл. таб. а n='); readln (n);   
   write ('введ. кол. эл. таб. b m='); readln (m);   
   for i:=1 to n do   
     begin   
      write('a[', i, ']='); readln (a[i]);   
     end;   
   for i:=1 to m do   
    begin   
     write('b[' ,i, ']='); readln (b[i]);   
    end;   
   k := n + m;{кол. эл. таб. с}   
       
   (*заносим эл.таб.а в таб.с*)   
   for i:=1 to n do c[i] := a[i];   
  
   (*заносим эл.таб.в в таб.с*)   
   for i:=1 to m do c[i+n] := b[i];   
  
   (*упорядочим таб.с[1..k] по возраст*)   
   for i:=1 to k-1 do   
    begin   
     l := i; {номер мин.}   
     min := c[i];   
     for j := i+1 to k do   
      if c[j] < min then   
       begin   
        min := c[j];   
        l := j;   
       end;   
      c[l] := c[i]; {меняем местами 1-й и мин.эл.}   
      c[i] := min;   
    end;   
   for i:=1 to k do writeln ('Ответ: c[', i, ']=', c[i]);   
   readln;   
 end.

program z2;   
   uses crt;   
   var a, b, c, d, max, max1, max2 : real;   
  
   procedure bol2(aa, bb : real; var maxmax : real );   
    begin   
     if aa > bb then maxmax := aa else maxmax := bb;   
    end;   
  
 begin   
   clrscr;   
   write ('введте a, b, c, d через пробел ');   
   readln (a, b, c, d);   
   bol2 (a, b, max1);   
   bol2 (c, d, max2);   
   bol2 (max1, max2, max);   
   writeln ('max=', max);   
   readln;   
 end.