Минимальные значения строк. Delphi

[Delphin-666]

Здравствуйте. необходимо найти минимальные значения в каждой строке матрицы и максимальные в каждом столбце. Проблема в том, что мой код работает исключительно для квадратных матриц... При прямоугольных выдает неверные значения (и неверное количесвто значений, т.е. не совпадает кол-во например строк и выданных значений)
Вот мой код.
procedure TForm1.Naiti1Click(Sender: TObject);
var
Str: array[1..100,1..100] of integer;
mn_s,mx_s: Longint;
InB: Longint;
InA: Longint;
MxB: Longint;
MxA: Longint;
MnMxA:Array[1..100] of integer;
MxMnB:Array[1..100] of integer;
begin

MxB:=Matrica.ColCount-1; {число столбцов}
MxA:=Matrica.RowCount-1; {число строк}

{запись из таблицы в числовой массив}
For InA:=1 to MxA do
For InB:=1 to MxB do
Str[InA, InB]:=StrToInt(Matrica.Cells[InA, InB]);
Listbox1.Clear;
Listbox3.Clear;
//минимальное в строках
for InB:=1 to MxB
do begin
mn_s:=Str[1,InB];
for InA:=1 to MxA
do if Str[InA,InB] < mn_s
then begin
mn_s:=Str[InA,InB];
MxMnB[InB]:=mn_s;
end;
ListBox1.Items.Add(inttostr(mn_s));
end;
//максимальное в столбцах
for InA:=1 to MxA
do begin
mx_s:=Str[InA,1];
for InB:=1 to MxB
do if Str[InA,InB] > mx_s
then begin
mx_s:=Str[InA,InB];
MnMxA[InA]:=mx_s;
end;
ListBox3.Items.Add(inttostr(mx_s));
end;
end;

[VintProg]

Delphin-666
Не создавай одни и те же темы в разных разделах, админы будут ругаться за это.

[Delphin-666]

не знал в какой раздел пхать, в таком случае эта тема под снос, раз в том уже начали дискуссию. приношу извинения.