Для заданной матрицы A(N,N) (N=10) получить массив B(N), записывая в него последовательно суммы наибольшего и наименьшего элементов каждой строки — Pascal(Паскаль)

const
 n = 10;
var
 a:array[1..n,1..n] of integer;
 b:array[1..n] of integer;
 i,j,max,min:integer;
begin
 for i:= 1 to n do begin
   writeln;
   min:= maxint;
   max:= -maxint;
   for j:= 1 to n do begin
     a[i,j]:= random(30);
     write(a[i,j]:3);
     if a[i,j] > max then max:= a[i,j];
     if a[i,j] < min then min:= a[i,j];
   end;
   b[i]:= max+min;
 end;
 writeln;
 writeln;
 for i:= 1 to n do
   write(b[i],' ');
end.