Написать программу в Delphi.Двумерный массив.

[Rinka1]

Найти минимальные элементы каждой строки матрицы X(n x m) и поместить их на главную диагональ, а диагональные элементы записать на место минимальных.

[Mad_Cat]

for i:=1 to n do
begin
maxj:=1;
For j:=2 to m do
if a[i,j]<a[i,maxj] then maxj:=j;
a[i,i]:=a[i,i]+a[i,maxj] ;
a[i,maxj]:=a[i,i]-a[i,maxj];
a[i,i]:=a[i,i]-a[i,maxj];
end;