Задача на матрицу

[Dog]

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

[NeshSoft]

Ну алгоритм простой:
1. ищем строку с наименьшим значением
2. ищем строку с наибольшим значением
3. строку с наименьшим значением присваиваем новой матреце размера 1*m
4. строку с наибольшим значением присваиваем строке с наименьшим значением
5. строке с наибольшим значением присваиваем новую созданую на шаге 3 матрицу

[Lemo]

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
const
  n=3;
  m=3;

var
 a:array[1..n,1..m] of integer;
 i,j,min,max:integer;
begin
randomize;
for I := 1 to n  do    begin
for j := 1 to m  do    begin
  a[i,j]:=random(10);
  write(a[i,j],' ');
  end;
  writeln;
end;
     writeln('=*==*==*==*==*==*==*==*==*==*==*==*==*=');

   min:=a[1,1];
   max:=a[1,1];

for I := 1 to n  do    begin
for j := 1 to m  do    begin
if min>a[i,j] then
     begin
 min:=a[i,j];

   end;
 if max<a[i,j] then
  begin
 max:=a[i,j];

  end;
  end;
  end;


  writeLn('min= ',min);
  writeLn('max= ',max);

readln;
end.

Остальное приделаешь....