Задан двухмерный массив. найти произведение элементов третьего столбца матрицы

Const

m=5;

n=4;

var

mas: array[1 ... m, 1 ... n] of integer;

i, j, mult: integer;

begin

for i:=1 to m do

for j:=1 to n do

begin

write ('mas[', i, ',', j, '] = ') ;

readln (mas[i, j]) ;

end;

for i:=1 to m do

begin

for j:=1 to n do

write (mas[i, j], ' ') ;

writeln;

end;

mult:=1;

for i:=1 to m do

mult:=mult*mas[i, 3];

writeln ('Произведение 3-го столбца массива = ', mult)

end.