Дан двумерный массив А, состоящий из m строк и n столбцов Составить программу, которая вычисляет произведение элементов каждой строки и находит среди них наименьшее — Pascal(Паскаль)

const
  N=4;
  M=4;
var
  a:array[1..N,1..M]of integer;
  i,j,pr,min:LongInt;
begin
  WriteLn('Массив:');
  for i:=1 to N do
  begin
    for j:=1 to M do
    begin
      a[i,j]:=random(8)-4;
      Write(a[i,j]:2,' ')
    end;
    WriteLn
  end;
  for i:=1 to N do
  begin
    pr:=1;
    for j:=1 to M do
    begin
      if j=1 then
        min:=i;
      if a[i,j]<a[i,min] then
        min:=j;
      pr:=pr*a[i,j];
    end;
    WriteLn('Элемент a[',i,',',min,']:=',a[i,min],' - Произведение ',i,' :',pr)
  end
end.