Путем перестановок строк и столбцов (целиком) элемент надо переместить в правый верхний угол подмассива (Перевести программу в c++)

program zadanie_5;
uses crt;
const nn=5;
var    i, j, imax, jmax, n, k, m: integer;
       a: array [1..nn,1..nn] of real;
 
       r: real;
begin
 writeln('Задайте количество строк и столбцов');
 readln(n);
 writeln('Заполните массив');
 for i:=1 to n do
  for j:=1 to n do
  read(a[i,j]);
 
   k:=n-1;                        {задаем правый верхний}
   m:=2;                           {элемент первого подмассива}
 
     for i:=k downto 1 do            {цикл для перебора подмассивов}
       for j:=m to n do
 
         imax:=k; jmax:=m;           {считаем правый верхний элемент подмассива кандидатом на максимум}
           for i:=k to n do                       {организуем цикл в подмассиве}
             for j:=m downto 1 do
                if a[i,j]>a[imax,jmax] then       {для поиска максимального элемента}
                  begin
                  imax:=i; jmax:=j;      {нашли - делаем этот элемент максимальным}
                  end;
 
        for j:=m downto 1 do            {меняем местами строка m и imax-я строки}
          begin
          r:=a[m,j];
          a[m,j]:=a[imax,j];
          a[imax,j]:=r;
          end;
          
        for i:=k to n do              {меняем местами строка k и jmax-я строки}
          begin
          r:=a[i,k];
          a[i,k]:=a[i,jmax];
          a[i,jmax]:=r;
          end;
 
 for i:=1 to n do                     {вывод результата}
 begin
 writeln;
 for j:=1 to n do
 write (a[i,j], ' ');
  end;
end.