Перевести из паскаля в c++

var N:integer;
    E:integer;
    En1,En2:integer;
    EnX:real;
    matrix:array[0..10000,0..10000] of real;
    f1,f2:text;
    i,j:integer;
    temp:integer;
    L:array[1..100] of real;
    res:boolean;
begin
res:=true;
Assign(f1,'a.in');
Reset(f1);
//
Readln(f1,N,E);
//
for i:=1 to N do
    for j:=1 to N do
             matrix[i,j]:=-1;
//
for i:=1 to E do
    begin
        Readln(f1,En1,En2,EnX);
        if En1>En2 then
            begin
                temp:=En1;
                En1:=En2;
                En2:=temp;
            end;
        matrix[En1,En2]:=EnX;
        if (En1=En2) and (matrix[En1,En2]<>0) then res:=False;
    end;
//
Close(f1);
//
for i:=0 to N do
    for j:=0 to N do
        begin
            if (matrix[i,j]=-1) and (matrix[i,j-1]<>-1) and (matrix[i-1,j]<>-1) and (matrix[i,j-1]<>0) and (matrix[i-1,j]<>0)  then
                matrix[i,j]:=abs(matrix[i+1,j+1]-matrix[i+1,j]);
            if (matrix[i,j]<>-1) and (matrix[i,j+1]<>-1) and (matrix[i+1,j]<>-1)and (matrix[i+1,j]<>0) and (matrix[i,j+1]<>0) then
                matrix[i,j]:=matrix[i,j+1]+matrix[i+1,j];
            if (matrix[i,j]=-1) and (matrix[i,j+1]<>-1) and(matrix[i,j+1]<>0) and (matrix[i-1,j+1]<>-1)and (matrix[i-1,j+1]<>0) then
                matrix[i,j]:=abs(matrix[i,j+1]-matrix[i-1,j+1]);
            if (matrix[i,j]<>-1) and (matrix[i,j]<>0) and (matrix[i-1,j]<>-1)and(matrix[i-1,j]<>0) and (matrix[i-1,j+1]<>-1)and(matrix[i-1,j+1]<>0) and(matrix[i,j+1]<>-1) and (matrix[i,j+1]<>0) then
                matrix[i,j]:=Abs(matrix[i-1,j]-matrix[i,j+1])+matrix[i-1,j+1];
            if (matrix[i,j]=-1) and(matrix[i-1,j]<>0) and(matrix[i-1,j]<>-1) and(matrix[i-1,j-1]<>-1) and(matrix[i-1,j-1]<>0) then
                matrix[i,j]:=Abs(matrix[i-1,j-1]-matrix[i-1,j]);
            if (matrix[i,j]=-1) and(matrix[i-1,j-1]<>-1) and(matrix[i-1,j]<>-1) and(matrix[i-1,j-1]<>0) and(matrix[i-1,j]<>0) then
                matrix[i,j]:=abs(matrix[i-1,j-1]-matrix[i-1,j]);
        end;
//
//for i:=1 to N do
//  for j:=1 to N do
      //  if (matrix[i,j]<matrix[i,j+1]) and (matrix[i,j+1]<>-1) and (matrix[i,j+1]<>0) then
      //      res:=false;
for i:=1 to N-1 do
        begin 
            L[i]:=matrix[i,i+1];
            if L[i]<0 then res:=false;
        end;
 
//------------------------------------Отладка,выводим матрицу...................................
for i:=1 to N do
    begin
    writeln;
    for j:=1 to N do
        Write(matrix[i,j]:0:3,' ');
    end;
//............................................................................
Assign(f2,'a.out');
Rewrite(f2);
//
if res=true then
    begin 
        writeln(f2,'1');
        for i:=1 to N-1 do
            write(f2,L[i]:0:3,' ');
    end
    else writeln(f2,'2'); 
//
Close(f2);
end.