Дан двумерный массив.Сформировать одномерный массив,каждый элемент которого равен сумме элементов соответствующей строки — Pascal(Паскаль)

const
 n = 5;
var
 a:array[1..n,1..n] of integer;
 b:array[1..n] of integer;
 i,j,sum:integer;
begin
 for i:= 1 to n do begin
   writeln;
   sum:=0;
   for j:= 1 to n do begin
     a[i,j]:= random(20);
     write(a[i,j]:3);
     sum:= sum+a[i,j];
   end;
   b[i]:= sum;
 end;
 writeln;
 writeln;
 for i:= 1 to n do
   write(b[i], ' ');
end.