Сформировать из строк двумерного массива, содержащих нулевые элементы, одномерный массив. Нулевые элементы не выводить (удалить их)

  var a:array [1..100,1..100] of integer;
  b:array [1..100] of integer;
  n,m,j,i,k,p :integer;
begin
read(n,m);
p:=1;
for i:=1 to n do
for j:=1 to m do
read(a[i,j]);
for I :=1 to n do  begin
for j:=1 to m do begin
if a[i,j]=0 then
k:=i;
b[j]:=a[k,j];
end; inc(p);
end;
for j:=1 to p do
if b[j]=0 then begin
b[j]:=b[j+1];
p:=p-1;
end;
 
for j:=1 to p do
write(b[j]);
readln;
readln;
end.

  var a:array [1..100,1..100] of integer;
  b:array [1..100*100] of integer;
  n,m,j,i,k,p :integer;
begin
read(n,m);
p:=0;
for i:=1 to n do
for j:=1 to m do
read(a[i,j]);
for I :=1 to n do 
begin
  k:=0;
  for j:=1 to m do 
   if a[i,j]=0 then k:=i;
  if k>0 then
   For j:=1 to m do
   if A[i,j]<>0 then
   Begin
     inc(p);
     B[p]:=A[i,j];
   End;
End;
for j:=1 to p do
write(b[j],' ');
readln;
readln;
end.