Процедуры и функции!!!!

[k4k7u3]

Помогите пожалуйста сделать основную часть программы!!!!!
Задание: Вывести матрицу-столбец состоящую из элементов равных произведению элементов матрицы А по строкам

а)Функция:построчное произведение
Формальные параметры Номер строки!

Вот программа без процедур

Program laba_4;
var A: array [1..5,1..5] of integer;
var B: array [1..5] of integer;
var i,j : integer;
var proizv: integer;
Begin
proizv:=1;
for i := 1 to 5 do
for j := 1 to 5 do
A[i,j]:= random(10);
for i:= 1 to 5 do begin
for j:= 1 to 5 do
write (A[i,j] :3);
writeln
end;
For i:=1 to 5 do
Begin
Proizv:=1;
For j:=1 to 5 do
Begin
Proizv:=Proizv*A[i,j]
End;
B[i]:=Proizv;
End;
For i:=1 to 5 do Writeln(B[i])
end.

А вот я кое что сделал но основную часть не могу понять как(((

Program laba_4;
var A: array [1..5,1..5] of integer;
var B: array [1..5] of integer;
var i,j : integer;
var proizv: integer;
 procedure definematrix;
  var  i,j:integer;
 begin
  for i:=1 to 5 do
   for j:=1 to 5 do
    A[i,j]:=random(20)-10;
 end;
 procedure output;
 var i,j:integer;
  begin
   for i:=1 to 5 do
    begin
     for j:=1 to 5 do
  write (A[i,j]:3);
  writeln;
    end;
Begin

помогите плиз!!!

что никто не поможет?(((