Массив: Поменять местами столбец, произведение элементов которого является наименьшим, со столбцом, сумма элементов которого является наибольшей

uses crt;
const nmax=20;
var a: array [1..nmax,1..nmax] of real;
    i,j,n,m,e,jmax,jmin: byte;
    buf,sum,summax,p,pmin: real;
begin
repeat
write('Количество строк, n (не более ',nmax,')='); readln(n);
until n in [1..nmax];
repeat
write('Количество столбцов, m (не более',nmax,')='); readln(m);
until m in [1..nmax];
writeln('Исходная матрица');
for i:=1 to n do
    begin
    for j:=1 to m do
        begin
        a[i,j]:=19*random-9;
        write(a[i,j]:5:1);
        end;
    writeln;
    end;
for j:=1 to m do
    begin
    p:=1;
    sum:=0;
    for i:=1 to n do
        begin
        p:=p*a[i,j];
        sum:=sum+a[i,j];
        end;
    if j=1 then
       begin
       summax:=sum; jmax:=j;
       pmin:=p; jmin:=j;
       end else
           begin
           if sum>summax then
              begin
              summax:=sum; jmax:=j;
              end;
           if p<pmin then
              begin
              pmin:=p; jmin:=j;
              end;
           end;
    end;
writeln('Максимальная сумма ',summax:0:1,' в ',jmax,' столбце');
writeln('Минимальное произведение ',pmin:0:1,' в ',jmin,' столбце');
for i:=1 to n do
    begin
    buf:=a[i,jmax];
    a[i,jmax]:=a[i,jmin];
    a[i,jmin]:=buf;
    end;
writeln('Матрица после обмена столбцов');
for i:=1 to n do
    begin
    for j:=1 to m do
        write(a[i,j]:5:1);
    writeln;
    end;
e:=0;
while e<=n do
      begin
      for i:=1 to n-1 do
          if a[i,n]>a[i+1,n] then
             begin
             for j:=1 to m do
                 begin
                 buf:=a[i,j];
                 a[i,j]:=a[i+1,j];
                 a[i+1,j]:=buf;
                 end;
             end;
      inc(e);
      end;
writeln('Матрица после сортировки строк по последнему столбцу');
for i:=1 to n do
    begin
    for j:=1 to m do
        write(a[i,j]:5:1);
    writeln;
    end;
readln;
end.