Поменять местами строки, содержащие минимальную и максимальную суммы абсолютных значений элементов

Const nmax=20;
Var A:array[1..nmax,1..nmax] of integer;
    n,m,i,j:integer;
    max,min,imax,imin,temp,s:integer;
Begin
    Randomize;
    Repeat 
     write('Введите m: ');
     readln(m);
    Until (m>0)and(m<=nmax);
    Repeat 
     write('Введите n: ');
     readln(n);
    Until (n>0)and(n<=nmax);
    writeln('Исходная матрица');
    For i:=1 to m do
    Begin
      For j:=1 to n do
      Begin
        A[i,j]:=-15+random(31);
        write(A[i,j]:4);
      End;
      writeln;
    End;
    max:=0;
    For j:=1 to n do
     max:=max+abs(A[1,j]);
    min:=max;imax:=1;imin:=1;
    For i:=2 to m do
    Begin
      s:=0;
      For j:=1 to n do
       s:=s+abs(A[i,j]);
      if s>max then
      Begin
        max:=s;
        imax:=i;
      End
      else if s<min then
      Begin
        min:=s;
        imin:=i;
      End
    End;
    writeln('Max сумма abs значений элементов находится в ',imax,' строке и = ',max);
    writeln('Min сумма abs значений элементов находится в ',imin,' строке и = ',min);
    For j:=1 to n do
    Begin
      temp:=A[imax,j];
      A[imax,j]:=A[imin,j];
      A[imin,j]:=temp;
    End;
    writeln('Преобразовання матрица');
    For i:=1 to m do
    Begin
      For j:=1 to n do
       write(A[i,j]:4);
      writeln;
    End;
    readln;
End.