Найти нули в каждой строке двумерного массива и заменить их на сумму элементов всей строки

const n=5;
var a:array[1..n,1..n] of real;
i,j,k:integer;
sum:real;
begin
a[1,1]:=0.1; a[1,2]:=0; a[1,3]:=4; a[1,4]:=4; a[1,5]:=12;
a[2,1]:=0.2; a[2,2]:=0.3; a[2,3]:=5.1; a[2,4]:=5.1; a[2,5]:=4;
a[3,1]:=0; a[3,2]:=0;a[3,3]:=3; a[3,4]:=3; a[3,5]:=0;
a[4,1]:=0.4; a[4,2]:=0.5;a[4,3]:=0; a[4,4]:=0; a[4,5]:=0;
a[5,1]:=0.5;a[5,2]:=0.2;a[5,3]:=1.4;a[5,4]:=1.4;a[5,5]:=0;
writeln('Исходная матрица');
for i:=1 to n do begin 
for j:=1 to n do write(a[i,j]:8); writeln; end;
  k:=0;
  for i:=1 to n do begin
  for j:=1 to n do begin 
  if (a[i,j]=0) then inc(k); end;
  writeln('в ',i,' строчке ','количество нулей: ',k); end;
      sum:=0;
      for i:=1 to n do begin
      for j:=1 to n do begin 
      if (a[i,j]=0) then sum:=sum+a[i,j]; end;end;
        
 
          writeln('Измененная матрица');
          for i:=1 to n do begin
          for j:=1 to n do write(a[i,j]:8);writeln;end; end.

const
  n = 5;
 
var
  a: array[1..n, 1..n] of real;
  i, j, k: integer;
  sum: real;
 
begin
  a[1, 1] := 0.1;a[1, 2] := 0;a[1, 3] := 4;a[1, 4] := 4;a[1, 5] := 12;
  a[2, 1] := 0.2;a[2, 2] := 0.3;a[2, 3] := 5.1;a[2, 4] := 5.1;a[2, 5] := 4;
  a[3, 1] := 0;a[3, 2] := 0;a[3, 3] := 3;a[3, 4] := 3;a[3, 5] := 0;
  a[4, 1] := 0.4;a[4, 2] := 0.5;a[4, 3] := 0;a[4, 4] := 0;a[4, 5] := 0;
  a[5, 1] := 0.5;a[5, 2] := 0.2;a[5, 3] := 1.4;a[5, 4] := 1.4;a[5, 5] := 0;
  writeln('Исходная матрица');
  for i := 1 to n do 
  begin
    for j := 1 to n do 
      write(a[i, j]:8);
    writeln; 
  end;
  
  for i := 1 to n do 
  begin
    k := 0;
    for j := 1 to n do 
      if (a[i, j] = 0) then 
        inc(k); 
    writeln('в ', i, ' строчке ', 'количество нулей: ', k); 
  end;
  
  for i := 1 to n do 
  begin
    sum := 0;
    for j := 1 to n do 
      sum := sum + a[i, j];
    for j := 1 to n do   
      if a[i, j] = 0 then 
        a[i, j] := sum;
  end;
  writeln('Измененная матрица');
  for i := 1 to n do 
  begin
    for j := 1 to n do 
      write(a[i, j]:8);
    writeln; 
  end; 
end.

begin
  var
    a : array [,] of Real = (
      (0.1, 0  , 4  , 4  , 12 ),
      (0.2, 0.3, 5.1, 5.1,  4 ),
      (0  , 0  , 3  , 3  ,  0 ),
      (0.4, 0.5, 0  , 0  ,  0 ),
      (0.5, 0.2, 1.4, 1.4,  0 )
    );
 
  writeln('Исходная матрица'); a.Println;
  a.Rows.Numerate.Select(r->$'в строке {r[0]} нулевых элементов {r[1].Count(x->x=0)}').PrintLines;
 
  for var row := 0 to a.GetLength(0)-1 do
    begin
      var sum := a.Row(row).Sum;
      for var col := 0 to a.GetLength(1)-1 do
        if a[row, col] = 0 then a[row, col] := sum;
    end;
  writeln('Измененная матрица'); a.Println;
end.