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

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.