Вычислить и запомнить суммы и числа элементов каждой строки матриц A(15,20) и В(10,15)

const
  nmax = 15;
  mmax = 20;
  na = 15;
  ma = 20;
  nb = 10;
  mb = 15;
 
type
  mas = array[1..mmax + 1] of integer;
  matr = array[1..nmax] of mas;
 
var
  a, b: matr;
  i: integer;
 
procedure vv(var x: matr; nx, mx: integer);
var
  i, j: integer;
begin
  for i := 1 to nx do
  begin
    for j := 1 to mx do
    begin
      x[i, j] := -10 + random(21);
      write(x[i, j]:4)
    end;
    writeln
  end;
  writeln
end;
 
procedure st(var x: matr; nx, mx: integer);
var
  i, j: integer;
begin
  for i := 1 to nx do
  begin
    x[i, mmax + 1] := 0;
    for j := 1 to mx do
      x[i, mmax + 1] := x[i, mmax + 1] + x[i, j];
  end;
end;
 
begin
  randomize;
  writeln('A:');
  vv(a, na, ma);
  writeln('B:');
  vv(b, nb, mb);
  st(a, na, ma);
  st(b, nb, mb);
  writeln('построчная сумма элементов');
  writeln('  A:  B:');
  for i := 1 to na do
  begin
    write(a[i, mmax + 1]:4);
    if i <= nb then writeln(b[i, mmax + 1]:4)
    else writeln
  end
end.