Поменять местами строки матрицы, содержащие наибольший и наименьший элементы

Program SORT (input, output);
Type
  Matrix = Array [1..10, 1..10] of Real;
Var
  i, j, K, L : Integer; {параметры циклов и индексы}
  N : Integer; {порядок матрицы}
  A : Matrix; {исходная матрица}
  S : Array [1..10] of Real; {суммы элементов строк}
  R : Real; {промежуточная переменная}
Begin
  Repeat
    Writeln ('Введите порядок матрицы N, N <= 10');
    ReadLn ( N )
  Until N in [2..10];
  Writeln ( 'Введите матрицу по строкам');
  for i := 1 to N do
  for j := 1 to N do
    Read ( A[i,j] );
              {Вывод исходной матрицы}
  Writeln ('Исходная матрица A');
  for i := 1 to N do
    Begin
      for j := 1 to N do
        Write ( A[i,j] :8:1 );
      Writeln
    end;
              {подсчет сумм элементов строк}
    for i := 1 to N do
      Begin
        S[i] := 0;
        for j := 1 to N do
          S[i] := S[i] + A[i,j]
      end;
              {сравнение сумм и перестановка строк}
    for i := 1 to N-1 do
      Begin
        K := 1; L := N - i + 1;
        for j := 2 to L do
          if S[ j ] > S[ K ]then
            K:= j;
              {замена суммы переставляемой строки}
        S[ K] := S[ L ];
              {перестановка строк через буферную переменную}
        for j := 1 to N do
          Begin
            R := A[K,j];
            A[K,j] := A[L,j];
            A[L,j] := R
          end
      end;
              {Вывод результирующей матрицы}
    Writeln ('Отсортированная матрица');
    for i := 1 to N do
      Begin
        for j := 1 to N do
          Write ( A[i,j] :8:1 );
        Writeln
      End
End.

const mm=10; nm=10;
var
  a: array [1..mm,1..nm] of Real;
  mx, mn, t: Real;
  m, n, i, j, imx, imn: Integer;
begin
  Randomize;
  repeat Write('M [1..',mm,'] N [1..',nm,']: '); ReadLn(m,n); 
  until (m in [1..mm]) and (n in [1..nm]);
  for i:=1 to m do for j:=1 to n do a[i,j]:=Random*100;
  WriteLn('A =');
  for i:=1 to m do begin
    for j:=1 to n do Write(a[i,j]:8:2); WriteLn;
  end;
  imn:=1; imn:=1; mn:=a[1,1]; mx:=a[1,1];
  for i:=1 to m do
    for j:=1 to n do begin
      if mn>a[i,j] then begin imn:=i; mn:=a[i,j]; end;
      if mx<a[i,j] then begin imx:=i; mx:=a[i,j]; end;
    end;
  WriteLn('Строки min: ',imn,', max: ',imx);
  if imn<>imx then
    for j:=1 to n do begin
      t:=a[imn,j]; a[imn,j]:=a[imx,j]; a[imx,j]:=t;
    end;
  WriteLn('A''=');
  for i:=1 to m do begin
    for j:=1 to n do Write(a[i,j]:8:2); WriteLn;
  end;
end.