Нормирования матрицы С++

[prodsgn]

Народ помогите кому не сложно буду очень очень благодарен.

Дано квадратную матрицу А размером nxn. Составить программу нормирования матрицы, поделив все элементы каждой строки на максимальный элемент по модулю этой строки. Поиск максимального элемента строки оформить в виде чением процедур.

[prodsgn]

Я нашел код програми на Pascal пожалуйста переведите на С++

uses
crt;
const
lim=100;
var
a:array[1..lim,1..lim] of real;
s:array[1..lim] of real;
i,j,n,m:integer;
procedure vvod;
begin
writeln('wvedite n');
readln(n);
writeln('wvedite m');
readln(m);
writeln('wvedite massiv ',n,'x',m);
for i:= 1 to n do
begin
for j:= 1 to m do
read(a[i,j]);
end;
end;
procedure delen;
var
max:real;
begin
max:=abs(a[1,1]);
for i:= 1 to n do
begin
for j:= 1 to m do
begin
if abs(a[i,j])>max then
max:=abs(a[i,j]);
end;
writeln('max element v ',i,'-stroke raven ', max);
for j:= 1 to m do
begin
s[j]:=a[i,j]/max;
writeln('rezultat deleni9 ',i,'-stroki na element ',j,'-elemta raven ',s[j]:2:4);
end;
max:=abs(a[1,1]);
end;
end;
begin
vvod;
delen;
readkey
end.