[delphi] Помогите с лабой по масивам

[-Gluider-]

Пришло время сдавать зачёт)) С утра сделал 9 лабораторок, а с 10 проблемы:

"Создать масив целых чисел размером 4х5, найти минимальный элемент и позицию этого елемента в масиве."

В место этого у меня выводится то предпоследний элемент то последний) вобщем запарился.

вот мой код , только не смеяться если натупил сильно

procedure TForm1.BitBtn1Click(Sender: TObject);
var
i:integer;
j:integer;
m:array [1..4,1..5] of integer;
min:integer;
begin
for i:=1 to 4 do
begin
for j:=1 to 5 do
begin
m[i,j]:=strtoint(stringgrid1.Cells[j-1,i-1]);
min:=m[i,j];
if m[i,j]<m[1,1] then min:=m[i,j];
edit1.Text:=floattostr(min);
end;
end;
end;


и ещё подскажите как реализовать вывод координат минимального элемента в стринг гриде. Заранее спасибо!

 

[LAW]

m[i,j]:=strtoint(stringgrid1.Cells[j-1,i-1]);
min:=m[i,j];
if m[i,j]<m[1,1] then min:=m[i,j];

Ваще бред а не исходник.
С утра если никто не ответит накарябую, ща в падлу. спать охота.

 

[DIR3ct0r]

min:= a[1, 1];
for i:= 1 to 4 do
for j:= 1 to 5 do
if a[i, j] < min then 
begin
min:= a[i, j];
iRow:= i;
iCol:= j;
end;

min - минимальный элемент
iRow, iCol - его индексы