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

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.