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

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.

var
a:array [1..20,1..20] of integer;
b:array [1..20] of integer;
i,j,k,l, n,m ,smax,imax,imin,p,pmin,tmp:integer;
function Vvod(var a:array [1..20,1..20] of integer; var n,m:integer):integer;
var i,j:integer; f:text;
begin
assign(f,'read.txt');
reset(f);
readln(f,n,m) ;
for i:=1 to n do
begin
for j:=1 to m do
read(a[i,j]);
readln(f);
end;
close(f);
end;
begin
vvod(a,n,m);
for i:=1 to n do begin
for j:=1 to m do
write(a[i,j]:5);writeln;
end;
for I:=1 to n do begin
b[i]:=0;
for j:=1 TO m do
b[i]:=b[i]+a[i,j];
end;
smax:=b[1]; imax:=1;
for i:=2 to n do
if b[i]>smax then begin
smax:=b[i]; imax:=i; end;
imin:=1;
for i:=1 to n do
begin
p:=1;
for j:=1 to m do
p:=p*a[i,j];
if j=1 then pmin:=p else
if p<pmin then
begin
pmin:=p;
imin:=i;
end; end;
for j:=1 to m do begin
tmp:=a[imax,j];
a[imax,j]:=a[imin,j];
a[imin,j]:=tmp;
end;
for i:=1 to n do begin
for j:=1 to m do
write(a[i,j]:5);writeln;
end;
 
end.