Необходимо организовать ввод двумерного массива.Размер массива:2х4; Ввод с клавиатуры, описать в константах количество элементов;Найти произведение элементов третьего столбца; Поиск:min- Pascal(Паскаль)

const m=2;
      n=4;
var a:array[1..m,1..n] of integer;
    s3,min,i,j,k,c:integer;
Begin
     for i:=1 to m do
     for j:=1 to n do
     begin
       writeln('Введите ',i,' ',j,' элемент');
       readln(a[i,j]);
     end;
  for i:=1 to m do
     begin
       for j:=1 to n do
       write(a[i,j],' ');
       writeln;
     end;
  s3:=1;
  for i:=1 to m do
     begin
       s3:=s3*a[i,3];
     end;
  writeln('Произведение элементов=',s3);
  min:=a[1,1];  k:=1; c:=1;
  for i:=1 to m do
  for j:=2 to n do
       if a[i,j]<min then
        begin
         min:=a[i,j];
         k:=i;
         c:=j;
        end;
     writeln('Минимальное значение=',min,' его номер=',k,' ',c);
     readln;
  end.