Перепешите за меня с паскаля на C++ - C++ - Ответ 2353594

Program Yakobi;
Uses Crt;
label met;
Type Matrica = array[1..10,1..10] of real;
Var A,A1,Matr:Matrica;
    RazmMatr,i,j,p,q,k,m:integer;
    max_el,l:real;
 
{procedura chtenie matrici-------------------------}
 procedure readFile;
 var df:text;
     NF:string;
     code:integer;
  begin
   NF:='a.txt';
   assign(Df,NF);
   {$I-}
   reset(df);
   {$I+}
  // code:=IOResult;
   if code <> 0 then
    begin
      writeln('file dont read');
      readkey;
    end;
 
   read(Df,razmMatr);
   for i:=1 to RazmMatr do
    for j:=1 to RazmMatr do
    begin
     read(DF,Matr[i,j]);     {zadannaia}
    end;
 
                  {stanovlenie na nachalo}
 
   for i:=1 to RazmMatr do
    for j:=1 to RazmMatr do
    begin
     A[i,j]:=Matr[i,j];     {izmenaiemaia}
     A1[i,j]:=A[i,j];
    end;
   close(df);
  end;
  {procedura raspechativanie matrici}
  procedure WriteMatr(M:matrica);
   begin
     for i:=1 to razmMatr do
      begin
        for j:=1 to razmMatr do
         begin
           write('      ', M[i,j]:2:8);
         end;
        writeln;
      end;
   end;
   Begin
   clrscr;
   readfile;
 //     m:=0;
   writeln('Zadannaia matrica:');
   writematr(Matr);
 
 
 
 
   readkey;
 end.