Дана матрица B размера 5*4. Составить программу формирования вектора, элементы которого равны сумме элементов строк матрицы B — Pascal(Паскаль)

program SumStr;
uses crt;
const Str=5;
      Stl=4;
var a:array[1..Str,1..Stl] of integer;
    b:array[1..Str] of integer;
    i,j:integer;
 begin
  ClrScr;
  Randomize;
    for i:=1 to str do
     begin
      for j:=1 to stl do
       begin
        a[i,j]:=random(6)+4;
        Write(a[i,j]:4);
       end;
      Writeln;
     end;
    b[i]:=0;
   for i:=1 to str do
    for j:=1 to stl do
     b[i]:=b[i]+a[i,j];
   for i:=1 to str do
    Write(b[i]:4);
  Readkey;
 end.