Массивы.Формирование нового. Сумма элементов

[Dir08]

Ввести матрицу A n*m, вывести её. В каждой строке найти сумму элементов расположенных после первого нулевого элемента. Значения найденных сумм поместить в одномерный массив Bn. Обозначить новый массив буквой 'B'. Помогите пожалуйста. Нужна простая программа без заморочек

[newerow1989]

const n=12;
      m=20;
var a:array[1..n,1..m] of integer;
    b:array[1..n] of integer;
    i,j,j0,c:integer;
begin
   For i:=1 to n do
      For j:=1 to m do
      begin
         Write('a[',i,', ',j,'] = ');
         Readln(a[i,j]);
      end;
   For i:=1 to n do
   begin
      For j:=1 to m do
         Write(a[i,j]:3,' ');
      Writeln;
   end;
   Writeln;
   For i:=1 to n do
   begin
      c:=0;
      j0:=-1;
      Repeat
         Inc(j0);
      Until (a[i,j0]=0) or (j0>=m);
      For j:=j0+1 to m do
         c:=c+a[i,j];
      Writeln(c);
   end;
   Readln;
end.