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

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.