2 задания(Двумерные массивы)

[MyaSnIKs]

Написал программу, всё сделал, и вконце неправильно выводить, помогите найти ошибку.
1.Дана матрица размера M x N. Продублировать строку матрицы, содержащую ее минимальный элемент.
это задание.
вот код

procedure TForm1.Button2Click(Sender: TObject);

var A:array [1..100,1..100] of integer;
minA:array[1..100] of integer;
imin,jmin,m,n,p,i,j,min:integer;

begin
n:=strtoint(edit1.text);
m:=strtoint(edit2.text);
for j:=1 to m do
for i:=1 to n do
a[i,j]:=strtoint(stringgrid1.Cells[i-1,j-1]);
for i:=1 to n do begin
for j:=1 to m do
min:=a[1,1];
if a[i,j]<=min then min:=a[i,j];
imin:=i;
jmin:=j;
For j:=1 to n do
stringgrid2.Cells[j-1,0]:=inttostr(A[j,imin]);
end;
end;
end.

[XuTpbIu]

У тебя всегда же сравниваться начинаетс а[1,1], а ты присваивай первый элемент текущей строки

[Stilet]

if a[i,j]<=min then begin 
 min:=a[i,j];
 imin:=i;
 jmin:=j;
end;

[alex_fcsm]

imin:=1;
jmin:=1;
for i:=1 to n do 
for j:=1 to m do
if a[i,j]<a[imin,jmin] then begin
imin:=i;
jmin:=j;
end;

[MyaSnIKs]

begin
n:=strtoint(edit1.text);
m:=strtoint(edit2.text);
for j:=1 to m do
for i:=1 to n do
a[i,j]:=strtoint(stringgrid1.Cells[i-1,j-1]);
imin:=1;
jmin:=1;
for i:=1 to n do
for j:=1 to m do
if a[i,j]<a[imin,jmin] then begin
a[imin,jmin]:=a[i,j];
imin:=i;
jmin:=j;
end;
for j:=1 to n do
stringgrid2.Cells[j-1,0]:=inttostr(A[j,imin]);
end;

end.

он у меня как то странно очень цифры выводит в матрицу вторую, то по диагонали, то правильно строкой, то хз как...
Если не лень коперните мой код, и исправьте прям в нём.

[alex_fcsm]

for j:=1 to m do

и

for j:=1 to n do
stringgrid2.Cells[j-1,0]:=inttostr(A[j,imin]);

Заполняйте матрицу единообразно, чтобы не было сомнений

[MyaSnIKs]

всё нашёл свою затупку, огромное спасибо помогавшим=)

Хотя у меня вопрос вот один по другой задаче, я как бы решать знаю как её. но я не знаю, как искать только в диагонале
Дана квадратная матрица порядка M. Вывести минимальные из элементов каждой ее диагонали, параллельной побочной диагонали.
не подскажите просто, как обозначить диагональ?

[XuTpbIu]

Условие что элемент находится на побочной диагонали: I+J = M-1
Условие что элемент лежит на диагонали параллельной побочно диагонали и выше неё: I+J=M-1+k
Условие что элемент лежит на диагонали параллельной побочно диагонали и ниже неё: I+J=M-1-k
k - номер диагонали параллельной боковой

[MyaSnIKs]

ВО!
А я не мог вспомнить!
Спасиб большое=)