Для каждой строки и столбца матрицы найти сумму элементов

const
  n = 5;
  m = 5;
 
type
  matr = array[1..n, 1..m] of integer;
  matr2 = array[1..n, 1..1] of integer;
 
procedure zapolnenie(var mas: matr);
var
  i, j: integer;
begin
  for i := 1 to n do
    for j := 1 to m do
      mas[i, j] := random(50) + 1;
end;
 
 
procedure summa(const mas: matr; var sum: matr);
var
  i, j, summ: integer;
begin
  for i := 1 to n do
  begin
    summ := 0;
    for j := 1 to m do
    begin
      summ := summ + mas[i, j];
    end;
    sum[1, i] := summ;
  end;
end;
 
 
procedure vivod(const mas, sum: matr);
var
  i, j: integer;
begin
  
  for i := 1 to n do
  begin
    for j := 1 to m do
      Write(mas[i, j]:4);
    Writeln('   Сумма: ', sum[1, i]:2);
  end;
end;
 
var
  mas, sum: matr;
 
begin
  zapolnenie(mas);
  summa(mas, sum);
  vivod(mas, sum);
  
end.