Перевести с Pascal на C++

uses crt;
const max=10;
function sum(a:integer):integer;
var b,s:integer;
begin
b:=abs(a);
s:=0;
while b>0 do
 begin
  s:=s+b mod 10;
  b:=b div 10;
 end;
sum:=s;
end;
var a:array[1..max,1..max] of integer;
    m,n,i,j,ii,jj,k:byte;
begin
randomize;
repeat
write('Количество строк от 2 до ',max,' m=');
readln(m);
until m in [2..max];
repeat
write('Количество столбцов от 2 до ',max,' n=');
readln(n);
until n in [2..max];
writeln('Введите элементы матрицы,');
writeln('в том числе числе минимум 4 числа с одинаковрой суммой цифр');
for i:=1 to m do
for j:=1 to n do
 begin
  write('a[',i,',',j,']=');
  readln(a[i,j]);
 end;
clrscr;
writeln('Матрица');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln;
 end;
k:=0;
for i:=1 to m-1 do
for j:=1 to n-1 do
for ii:=i+1 to m do
for jj:=j+1 to n do
if (sum(a[i,j])=sum(a[ii,j]))and(sum(a[i,j])=sum(a[i,jj]))
and(sum(a[i,j])=sum(a[ii,jj]))and(sum(a[i,j])=sum(a[ii,j])) then
 begin
  k:=1;
  writeln('Подматрица [',i,',',j,']-[',ii,',',jj,']');
 end;
if k=0 then writeln('Подматриц по условию нет');
end.