Работа с матрицей, Delphi

[Orlangur]

Задача такова:
Найти максимальный элемент матрицы и вычесть его из элементов всех столбцов, кроме того, в котором он находится.

не могу решить две проблемы:
1. собственно, вторую часть задачи (вычитает из всех столбцов, не могу сформулировать правильное условие)
2. почему выдает ошибку, когда матрица не квадратная, а прямоугольная

новичок, не судите строго

procedure TForm1.SpinEditNChange(Sender: TObject);
begin
StringGridA.ColCount:=SpinEditN.Value;
StringGridB.ColCount:=SpinEditN.Value;
end;

procedure TForm1.SpinEditMChange(Sender: TObject);
begin
StringGridA.RowCount:=SpinEditM.Value;
StringGridB.RowCount:=SpinEditM.Value;
end;

procedure TForm1.Button1Click(Sender: TObject);
var n,m,i,j,j1: integer;
    A,B: array of array of real;
    max: real;

begin
Randomize;
n:=SpinEditN.Value;
m:=SpinEditM.Value;
for i:=0 to m-1 do
    for j:=0 to n-1 do
        StringGridA.Cells[j,i]:=IntToStr(Random(100));

Setlength(A,n,m);
Setlength(B,n,m);
for i:=0 to m-1 do
    for j:=0 to n-1 do
        A[i,j]:=StrToFloat(StringGridA.Cells[i,j]);
max:=A[0,0];
for i:=0 to m-1 do
    for j:=0 to n-1 do
        if A[i,j]>max then
           max:=A[i,j];
EditMax.Text:=FloatToStr(max);

for i:=0 to m-1 do
    for j:=0 to n-1 do
        B[i,j]:=A[i,j]-max;
for i:=0 to m-1 do
    for j:=0 to n-1 do
        StringGridB.Cells[i,j]:=FloatToStr(B[i,j]);


end;


end.

[whatever]

1. собственно, вторую часть задачи (вычитает из всех столбцов, не могу сформулировать правильное условие)

Когда ищешь максимальный элемент нужно добавить еще одну строчку:

for i:=0 to m-1 do
    for j:=0 to n-1 do
        if A[i,j]>max then
           begin
             max:=A[i,j];
             mx:=j;
           end;

А потом вот так:

for i:=0 to m-1 do
  for j:=0 to n-1 do
    if j<>mx then m[i,j]:=m[i,j]-max;

2. почему выдает ошибку, когда матрица не квадратная, а прямоугольная

По коду не догадался, какую именно ошибку?

[Step_UA]

2. почему выдает ошибку, когда матрица не квадратная, а прямоугольная

Setlength(A,n,m); //перевая размерность от 0 до n-1, вторая от 0 до m-1
...
for i:=0 to m-1 do
    for j:=0 to n-1 do
        A[i,j]:=StrToFloat(StringGridA.Cells[i,j]); //здесь первая размерность А от 0 до  m-1

Не забывайте что в StringGrid.Cells - первым указывается номер столбца