Перевод из pascal в с++

uses crt;

const nmax=20;

type matr=array[1..nmax,1..nmax] of integer;

procedure Vvod(var a:matr;var n:byte);

var i,j:byte;

begin

repeat

write('Размер матрицы=');

readln(n);

until n in [1..nmax];

for i:=1 to n do

for j:=1 to n do

a[i,j]:=random(50);

end;

procedure Vyvod(var a:matr;n:byte);

var i,j:byte;

begin

for i:=1 to n do

begin

for j:=1 to n do

write(a[i,j]:4);

writeln;

end;

end;

procedure Udal(var a:matr;var n:byte);

var i,j,imx:byte;

begin

imx:=1;

for i:=1 to n do

if a[i,i]>a[imx,imx] then imx:=i;

writeln('Максимальный элемент главной диагонали=',a[imx,imx],' его индексы ',imx,',',imx);

if imx=n then n:=n-1

else

begin

{Удаление строки}

for j:=1 to n do

for i:=imx to n-1 do

a[i,j]:=a[i+1,j];

{Удаление столбца}

for i:=1 to n do

for j:=imx to n-1 do

a[i,j]:=a[i,j+1];

n:=n-1;

end;

end;

var m:matr;

k:byte;

begin

clrscr;

randomize;

Vvod(m,k);

writeln('Исходная матрица:');

Vyvod(m,k);

Udal(m,k);

writeln('Удаление строки и столбца с максимальным на главной диагонали::'); Vyvod(m,k);

readln

end.