Дана матрица А(n*m) целых чисел. Получить одномерный массив В(n), где bk – сумма наибольшего и наименьшего элементов k-ой строки — Pascal(Паскаль)

const  n=5;
       m=5;
var a:array[1..n,1..m]of integer;
    b:array[1..n]of integer;
    i,j:byte;
function getsum(var i:byte):integer;
var jmin,jmax:byte;
begin
jmin:=1; jmax:=1;
for j:=2 to m do
begin
    if a[i,j]>a[i,jmax] then jmax:=j;
    if a[i,j]<a[i,jmin] then jmin:=j;
end;
getsum:=a[i,jmax]+a[i,jmin];
end;
 
begin
randomize;
for i:=1 to n do
begin
    for j:=1 to m do
    begin
        a[i,j]:=random(20)-10;
        write(a[i,j]:4);
    end;
    writeln;
end;
writeln('Результат:');
for i:=1 to n do
begin
    b[i]:=getsum(i);
    write(b[i]:4);
end;
end.