Developing.ru

В данной действительной матрице 6х9 поменять местами строку, содержащую элемент с наибольшим значением со строкой, содержащей наименьший элемент.

Пройтись в цикле по всей матрице. Найти номер строки с наименьшим элементом и с наибольшим, пусть это строки с номерами min и max.
Потом пройтись по длине строки, меняя местами элементы матрицы с индексами [i,max] и [i,min], где i - параметр цикла

max:=a[1, 1];
min:=a[1, 1];
for i:=2 To 9 Do
for j:=2 To 6 Do
begin
if max<a[i, j] then
begin
max:=a[i, j];
IndexMaxI:=i;
end;
if min>a[i, j] then
begin
min:=a[i, j] then
IndexMinI:=i;
end;
end;
for i:=1 to 9 do
begin
buf:=a[IndexMaxI,i];
a[IndexMaxI, i]:=a[IndexMinI, i];
a[IndexMinI, i]:=Buf;
end;

Это я навскидку!
Должно сработать! Если где видна ошибка прошу известить!