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

В чем конкретно проблемма ?

for i := 1 to n do begin
   minN := 1;
   for j := 2 to m do // проходим по столбацам, ищем минимум в строке
    if x[i,j] < x[i,minN] then
      minN := j;
   x[i,i] := x[i, minN]; // присваиваем значение элементу диаганали
end;