Ввести матрицу A(n x m) , вывести ее. В каждой строке найти сумму
элементов расположенных после первого нулевого элемента. Значения
найденных сумм поместить в одномерный массив B(n)- Pascal(Паскаль)

uses crt;
const n=5;
      m=5;
var a:array[1..n,1..m]of integer;
    b:array[1..n]of integer;
    i,j,k,s:integer;
begin
clrscr;
randomize;
for i:=1 to n do
begin
    for j:=1 to n do
    begin
        a[i,j]:=random(11)-5;
        write(a[i,j]:3);
    end;
    writeln;
end;
for i:=1 to n do
begin
    s:=0; k:=0;
    for j:=1 to m do
    if a[i,j]=0 then
    for k:=j+1 to m do s:=s+a[i,k];
    if k=0 then
    begin
        writeln('В строке ',i,' нет нулевых элементов');
        b[i]:=0;
    end
    else b[i]:=s;
end;
writeln('Полученный массив В');
for i:=1 to n do
write(b[i]:4);
readln;
end.