Перевод с Паскаля на С++

program jjj;
 
{Дана матрица размера М х N. Найдите максимальный среди элементов
тех столбцов, которые упорядочены либо по возрастанию, либо по убыванию.
Если упорядоченные столбцы в матрице отсутствуют, то вывести 0.}
Uses
  crt;
 
var
  a: array [1..50,1..50] of integer;
  i,j,x,y,k,m,n,g: integer;
 
begin
  clrscr;
  Write('Количество строк: ');
  readln(m);
  Write('Количество столбцов: ');
  readln(n);
  For i:= 1 to m do
    For j:= 1 to n do
      begin
        write('Введите значение элемента [',i,',',j,']: ');
        Readln(a[i,j]);
      end;
  Writeln('Исходная матрица:');
  For i:= 1 to m do
    begin
      For j:= 1 to n do
        write(a[i,j]:4);
      writeln;
    end;
  For j:= 1 to n do  //цикл поиска упорядоченных столбцов
    begin
      x:=0;
      y:=0;
      For i:= 1 to m-1 do
        begin
          If a[i,j] < a[i+1,j] then
            inc(x);
          If a[i,j] > a[i+1,j] then
            inc(y);
        end;
       If (x = m-1) then
          begin
            Writeln('Максимальный элемент ',j,'-й столбца - ',a[m,j]);
            g:= 1;
          end
        else
          if (y = m-1) then
            begin
              Writeln('Максимальный элемент ',j,'-й столбца - ',a[1,j]);
              g:= 1;
            end;
      end;
  If g = 0 then
    writeln(0);
 
  readln;
end.