Ребят,помогите пожалуйста))программа для Turbo pskal: б) Сформировать массив B, содержащий суммы элементов строк матрицы A

var a: array [1..100,1..100] of integer;b:array [1..100] of integer;n,m,i,j:integer;Begin    read(n,m);    for i:= 1 to n do        for j:= 1 to m do            read(a[i,j]);    for i:= 1 to n do begin        b[i]:=0;        for j:= 1 to m do            b[i]:=b[i]+a[i,j];        writeln('b[',i,'] = ',b[i]);    end;End.