Найдите произведение элементов матрицы - PascalABC.NET

Формулировка задачи:

найти в матрице произведение всех элементов строки p и столбца q( вводятся пользователем) !Помогите плиз с кодом

Решение задачи: «Найдите произведение элементов матрицы»

Листинг программы

begin
  var m:=MatrRandomInteger(ReadInteger('строк ='),ReadInteger('колонок ='),-99,+99).Println;
  var(p,q):=ReadInteger2('p q =');
  WriteLn(m.Row(p).Aggregate(Biginteger.One,(p,x)->p*x));
  WriteLn(m.Col(q).Aggregate(Biginteger.One,(p,x)->p*x));
end.

Объяснение кода листинга программы

В этом коде:

var m:=MatrRandomInteger(ReadInteger('строк ='),ReadInteger('колонок ='),-99,+99).Println; - создается случайная матрица заданного размера, выводится на экран.
var(p,q):=ReadInteger2('p q ='); - считываются индексы строки и столбца.
WriteLn(m.Row(p).Aggregate(Biginteger.One,(p,x)->p*x)); - вычисляется произведение элементов строки с заданным индексом.
WriteLn(m.Col(q).Aggregate(Biginteger.One,(p,x)->p*x)); - вычисляется произведение элементов столбца с заданным индексом.