Поменять местами строку с наименьшей суммой элементов и столбец с наибольшей

Uses Crt;
Var A:array[1..20,1..20] of integer;
    i,j,n,imin,jmax,s,min,max,t:integer;
Begin
    ClrScr;
    Randomize;
    write('Введите размерность: ');readln(n);
    For i:=1 to n do
    Begin
      For j:=1 to n do
      Begin
        A[i,j]:=random(31)-15;
        write(A[i,j]:4);
      End;
      writeln;
    End;
    For j:=1 to n do
     min:=min+A[1,j];
    imin:=1;
    For i:=2 to n do
    Begin
      s:=0;
      For j:=1 to n do
       s:=s+A[i,j];
      if s<min then
      Begin
        min:=s;
        imin:=i;
      End;
    End;
    For i:=1 to n do
     max:=max+A[i,1];
    jmax:=1;
    For j:=2 to n do
    Begin
      s:=0;
      For i:=1 to n do
       s:=s+A[i,j];
      if s>max then
      Begin
        max:=s;
        jmax:=j;
      End;
    End;
    writeln('Строка с min суммой = ',imin,' сумма = ',min);
    writeln('Столбец с max суммой = ',jmax,' сумма = ',max);
    For i:=1 to n do 
    Begin
      t:=A[imin,i];
      A[imin,i]:=A[i,jmax];
      A[i,jmax]:=t;
    End;
    writeln('Преобразованная матрица');
    For i:=1 to n do
    Begin
      For j:=1 to n do
       write(A[i,j]:4);
      writeln;
    End;
    readln;
End.