произведение элементов по столбцам матрицы

[kuy]

Здраствуйте, помогите пожалуйста дописать програму.

Задание:
Найти произведение элементов по столбцам матрицы (4х2)
(два числа: произведение для первого и второго столбцов)

Мне нужен сам код произведения елементов в столбике(хотябы одного столбика)
Мой код:

program laba9_4;

{$APPTYPE CONSOLE}
{5.	Найти произведение элементов по столбцам матрицы (4х2)
(два числа: произведение для первого и второго столбцов).}
uses
  SysUtils;

const
 mas: array[1..4,1..2] of integer =
 (
 (4, 7),
 (6, 3),
 (1, 8),
 (6, 4)
 );

var
 masm: array[1..4,1..2] of integer;
 i,j, : integer;

begin
writeln('Matrix 4*2:');
for i:= 1 to 4 do
 begin
 for j:= 1 to 2 do
 write(mas[i,j]:2);
 writeln;
 end;

readln;
end.

[_Alerter_]

for j := 1 to 2 do
begin
	p := 1;
	for i := 1 to 4 do
		p := p * mas[i, j];
	WriteLn('Proizvedenie ', j, '-go stolbca: ', p);
end;