Переведите паскаль в С++

{*
Дана квадратна матриця А розмірності NxN . 
- Ввести елементи матриці А. 
- Обчислити суму негативних елементів,
- суму позитивних елементів та кількість нульових елементів, 
- а також добуток суми елементів,
- лежачих на головній діагоналі і 
- суму елементів, лежачих на додатковій діагоналі. 
- Вивести початкову матрицю і отримані значення на друк у графичному вікні Windows.
- Результати розрахунку розмістити у зовнішніх файлах.
*}
uses graphABC;
 
const N = 3;
type 
  matrixNxN = array[1..N,1..N] of integer;
var
  A:matrixNxN;                  // Матриця розміром NxN
  i,j: integer;                 // Бігунки,для доступів до елементів 
  sumM,                         // Сума негативних елементів (sumM=sumaMinusiv)
  sumP,                         // Сума позитивних елементів (sumP=sumaPlusiv)
  cntZero: integer;             // Кількість нульових елементів
  SumHonerDiagonal:integer;     // Сума елементів головної діагоналі  
  SumOtherDiagonal:integer;     // Сума елементів додаткової діагоналі
  dobHO: integer;               // Добуток головної та додаткової діагоналі (dobHO=dobutokHonerandOther)
  f: TextFile;
begin
  for i := 1 to N do begin
    for j := 1 to N do begin
      write('Елемент [',i,',',j,']: ');
      readln(A[i,j]);
    end;
    writeln();
  end;
  
  writeln('Матриця розміром ', N,'x',N,':');
  for i := 1 to N do begin
    for j := 1 to N do begin
      write(A[i,j]:4);
    end;
    writeln();
  end;
  
  sumP := 0;
  sumM := 0;
  SumHonerDiagonal := 0;
  SumOtherDiagonal := 0;
  for i := 1 to N do begin
    for j := 1 to N do begin
      if (A[i][j] < 0) then                 // Пошук суми  
        sumM := sumM + A[i][j]              // негативних елементів та
      else begin                            // суми позитивніх елементів матриці, 
        sumP := sumP + A[i][j];             // а також кількість нульових елементів.
        if (A[i][j] = 0) then Inc(cntZero); 
      end;
      // Добуток суми головної діагоналі
      if (i = j) then 
        SumHonerDiagonal := SumHonerDiagonal + A[i][j];
    end;
  end;
  
  // Добуток суми додаткової діагоналі
  j := N;
  for i := 1 to N do begin
    SumOtherDiagonal := SumOtherDiagonal + A[i][j];
    Dec(j);
  end;
  dobHO := SumHonerDiagonal * SumOtherDiagonal;
  writeln();
  // Виводимо на екран все,що знайшли
  writeln('Сума позитивних елементів = ', sumP);
  writeln('Сума негативних елементів = ', sumM);
  writeln('Кількість нульових елементів = ', cntZero);
  writeln('Сума елементів головної діагоналі = ', SumHonerDiagonal);
  writeln('Сума елементів додаткової діагоналі = ', SumOtherDiagonal);
  writeln('Добуток головної та додаткової діагоналі  =  ', dobHO);
  readln();
  // Запис інформації в файл
  assign (f,'outputMatrix.txt');
  rewrite(f);
  writeln(f,'Сума позитивних елементів = ', sumP);
  writeln(f,'Сума негативних елементів = ', sumM);
  writeln(f,'Кількість нульових елементів = ', cntZero);
  writeln(f,'Сума елементів головної діагоналі = ', SumHonerDiagonal);
  writeln(f,'Сума елементів додаткової діагоналі = ', SumOtherDiagonal);
  writeln(f,'Добуток головної та додаткової діагоналі  = ', dobHO);
  close(f);
end.