Паскаль. Матрица

[d_ovod]

помогите пожалуйста решить, немого я написал, а вот дальше проблемка..)))
Ввести матрицу A(N,M) . В каждой строке найти произведение элементов предшествующих минимальному элементу строки. Произведения переписать в одномерный массив B(N).

Program zadacha1;
Var A: array[ 1..N,1..M ] of integer;
N,M,P,K,i,j,min: integer;
begin
write('ввести кол-во строк и столбцов');
read(N,M);
for i:=1 to N do
for J:=1 to M do
write ('A [',i,',',j,']=');
read (A[i,j]);
for i:=1 to N do
K:=0;
P:=1;
for i:=1 to M do
begin

[Don Karleone]

uses crt;

var
  A: array [1..10,1..10] of integer;
  B: array [1..10] of longint;
  i, j: integer;
  n, m: integer;
  Jmin: integer;

begin
  clrscr;
  randomize;
  write('n = ');
  readln(n);
  write('m = ');
  readln(m);
  writeln('A[n,m]:');
  for i:=1 to n do
    begin
      for j:=1 to m do
        begin
          A[i,j]:=random(41) - 20;
          write(A[i,j]:4);
        end;
      writeln;
    end;
  for i:=1 to n do
    begin
      Jmin:=1;
      for j:=2 to m do
        if A[i,j] < A[i,Jmin] then Jmin:=j;
      if Jmin <> 1 then B[i]:=1
                   else B[i]:=0;
      for j:=1 to Jmin-1 do
        B[i]:=B[i] * A[i,j];
    end;
  writeln;
  writeln('B[n]:');
  for i:=1 to n do
    write(B[i],'  ');
  readln;
end.