Создать одномерный массив В из элементов строк матрицы A[1..N,1..M], в которых есть нулевые элементы

program ConsoleApp;

{$R+}

const
  N = 4;
  M = 5;
  WIDTH = 5;
  
var
  i, j, nb, nc: Integer;
  b, c: array[1..N*M] of Integer;
  a: array[1..N, 1..M] of Integer;
begin
  Randomize;
  WriteLn('a:');
  for i:= 1 to N do begin
    for j:= 1 to M do begin
      a[i,j]:= Random(20);
      Write(a[i,j]:WIDTH);
    end;
    WriteLn;
  end;  

  nb:= 0;
  nc:= 0;
  for i:= 1 to N do begin
    j:= 1;
    while (j <= M) and (a[i,j] <> 0) do
      Inc(j);
    if j > M then begin
      for j:= 1 to M do begin
        Inc(nc);
        c[nc]:= a[i,j];
      end
    end
    else begin
      for j:= 1 to M do begin
        Inc(nb);
        b[nb]:= a[i,j];
      end
    end
  end;

  WriteLn('b:');
  for i:= 1 to nb do
    Write(b[i]:WIDTH);
  WriteLn;

  WriteLn('c:');
  for i:= 1 to nc do
    Write(c[i]:WIDTH);
  WriteLn;  
end.