квадратная вещественная матрица

[Delphi_Monstr]

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

вот Я набросал :
procedure TfmExample.bbRunClick(Sender: TObject);
var min,s,r:real;
i,j,ni,nj:byte;
begin
s:=0;
mmOutput.Lines.Add('Наименьший элемент (строка, столбец)');
with StringGrid1 do
begin
min:=StrToFloat(Cells[0,0]); ni:=1; nj:=1;
for i:=0 to RowCount-1 do
for j:=0 to ColCount-1 do
begin
r:=StrToFloat(Cells[j,i]);
if min>r then begin
min:=r; ni:=i+1; nj:=j+1
end; // then
if r>0 then s:=s+r
else if r=0 then mmOutput.Lines.Add(IntToStr(i+1)+',
'+IntToStr(j+1))
end // for j
end; // with
mmOutput.Lines.Add('MIN = '+FloatToStr(min)+' строка - '+IntToStr(ni)+',
столбец - '+IntToStr(nj));
mmOutput.Lines.Add('S = '+FloatToStr(s))
end;
procedure TfmExample.edInputClick(Sender: TObject);
begin
if Tag=0 then begin
StringGrid1.RowCount:=StrToInt(edIn put.Text);
lbOutput.Caption:='Количество столбцов';
Tag:=1
end
else StringGrid1.ColCount:=StrToInt(edIn put.Text);
edInput.Clear
end;
Это я написал по примеру ... уверен что не правильно,.. но все же будьте добры исправьте ))
p.s- Заранее спасибо