Меня ещё учили, что на делфи надо начинать счёт с 0.
Если работать со StringGrid будет не очень привычно (там строки и столбцы не так, как в массивах задаются - нужно привыкнуть, что сначала [СТОЛБЕЦ,СТРОКА]).
Для массива, где n=m главная диагональ будет
Код:
if i=j then if StringGrid1.Cells[j,i]<min then min:=SG1.Cells[j,i]
побочная диагональ это i=(n+1)-j