паскаль Ввести числовую матрицу {Aij}i=1,...n;j=1,...m. Найти произведение сумм элементов строк Помогите решить)

var i, j, n, m, pro, sum: int64; {LongInt или int64}
a: array [1..100, 1..100] of integer;
begin
write ('n & m (через пробел) = ');
readln (n, m);
pro:=1;
for i:=1 to n do
begin
sum:=0;
for j:=1 to m do
begin
a[i, j]:= 1 + random (9);
write (a[i, j]:4);
sum:=sum+ a[i, j];
end;
{write (sum:10);}
pro:=pro*sum;
writeln;
end;
writeln ('произведение сумм элементов строк = ', pro);
end.

#include <cstdlib>
#include <ctime>
#include <iostream>
using namespace std;
int main(){
 setlocale(LC_ALL, "Russian");
 srand(time(NULL));
 int n = rand() % 20 + 1, m = rand() % 20 + 1, a[n][m], p = 1;
 for (int i = 0, s = 0; i < n; cout << " => " << s << endl, p *= s, s = 0, ++i)
  for (int j = 0; j < m; a[i][j] = rand() % 101 - 50, printf("%4d", a[i][j]), s += a[i][j],++j);
 cout << "Произведение сумм элементов строк: " << p << endl;
 cin.get();
 return 0;
}

двумерный массив и двойной цикл в помощь

В заданной матрице чисел {aij}, i=1,n, j=1,m найти минимальное значение и среднее-арифметическое в столбце с максимальным количеством не нулевых элементов. Затем подсчитать сколько раз во всей матрице встречается найденное минимальное значение.