StringGrid нахождение min отрицательного числа

[Plex3]

Доброго всем времени суток.
Прошу подсказать знающих.

Программа почти написана, но есть одно но. Не могу реализовать последнюю функцию. (выделено красным)
Дана целочисленная матрица {Aij} i=1..n, j=1..m (n,m є (6..11)). Конкретный размер задается контекстным меню (строки) и списком ListBox (столбцы).
В правом дополнительном столбце выводится наибольший нечетный элемент в каждой строке.

Не понимаю как написать массив чтоб в StringGrid2 выводился наибольший нечетный элемент каждой строки StringGrid1 .

[Serge_Bliznykov]

А что не получается то?
Забыли, как в матрице в строке найти максимальное/минимальное значение?
Или как в гриде перебрать строчки/столбцы?
Или как в грид (2-й) вывести число в определённюу строку?!

ладно. пробуйте код:

if StringGrid2.RowCount < StringGrid1.RowCount 
     then StringGrid2.RowCount := StringGrid1.RowCount;

for i:=StringGrid1.FixedRows to StringGrid1.RowCount - 1 do begin
  maxValueInRow := 1;
  for j:=StringGrid1.FixedCols to StringGrid1.ColCount - 1 do begin
     m := StrToIntDef(StringGrid2.Cells[j, i], 0 );
     if (m<0) and (m< maxValueInRow) then maxValueInRow := m;
  end;

  if maxValueInRow<0 then 
     StringGrid2.Cells[0, i] := IntToStr(maxValueInRow)
  else 
     StringGrid2.Cells[0, i] := 'нет';
end;

Вот только сдаётся мне, что Вашим темам место не в разделе вопросов по Delphi, а в разделе "Помощь студентам"!!

[Plex3]

Да разделом ошибся.
Ругается на maxValueInRow
занесение в var как integer не помогает