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

uses crt;
const nmax=20;
var a: array [1..nmax,1..nmax] of integer;
    b: array [1..nmax*2] of integer;
    i,j,k,n,m,imax,imin: byte;
    sum,summax,summin: integer;
 
begin
repeat
write('Количество строк, не более ',nmax,', n='); readln(n);
until n in [1..nmax];
repeat
write('Количество столбцов, не более ',nmax,', m='); readln(m);
until m in [1..nmax];
write('Дан массив'); imax:=1; imin:=1;
for j:=1 to (m*3)-10 do write(' '); writeln('Сумма':10);
for i:=1 to n do
    begin
    sum:=0;
    for j:=1 to m do
        begin
        a[i,j]:=random(19)-9;
        write(a[i,j]:3);
        if i=1 then
           begin
           inc(summax,a[i,j]);
           inc(summin,a[i,j]);
           end else inc(sum,a[i,j]);
        if sum>summax then imax:=i;
        if sum<summin then imin:=i;
        end;
    writeln(sum:10);
    end;
writeln('Вектор'); k:=0;
for j:=1 to m do
    begin
    inc(k);
    b[k]:=a[imax,j];
    write(b[k]:3);
    end;
for j:=1 to m do
    begin
    inc(k);
    b[k]:=a[imin,j];
    write(b[k]:3);
    end;
end.