Где найти ошибку?

[nata24K]

Помогите,пожалуйста исправить ошибку.Делфи
Во второй процедуре нужно у каждого нечетного элемента найти из соседей по столбцу минимальный и умножить его на этот нечетный, получив другую матрицу в которой четные элементы те же, что и в первой, а нечетные получаются умножением всех нечетных элементов на минимальный из соседнего по столбцу элемент матрицы.

Как я понимаю-ошибка где-то здесь.

 procedure TForm1.Button2Click(Sender: TObject);
 begin
 For i:=1 to n do
 For j:=1 to m do
 if A[i,j] mod 2<>0 then
 begin
 if i>1 then min:=A[i-1,j]
 else min:=A[i+1,j];
 if i<n then min:=A[i+1,j];
 b[i,j]:=A[i,j]*min
 end else b[i,j]:=A[i,j];
 begin
 StringGrid2.Cells[i-1,j-1]:=IntToStr(b[i,j]);
 end;
 end;
 end.