Удалить из матрицы все элементы, не кратные семи, но кратные трем

Uses crt;
const n=10; m=10;
var a,b:array[1..m,1..n] of integer;
    i,j,bi,bj:integer;
begin clrscr; randomize;
  for i:=1 to m do
   for j:=1 to n do a[i,j]:=Random(99)+1;
 
  for i:=1 to m do
  begin
    for j:=1 to n do write(a[i,j]:4);
    writeln;
  end;
  writeln;
 
  Writeln('Itog');
  bi:=1; bj:=1;
  for i:=1 to m do
   for j:=1 to n do if ((a[i,j] mod 7)<>0)and((a[i,j] mod 3)=0) then
    begin
      b[bi,bj]:=a[i,j];
      if bj=m then begin bj:=1; bi:=bi+1; end else bj:=bj+1;
    end;
 
  for i:=1 to bi do
  begin
    for j:=1 to n do if b[i,j]<>0 then write(b[i,j]:4);
    writeln;
  end;
  readln;
end.

Uses crt;
const n=10; m=10;
var a,b:array[1..m,1..n] of integer;
    i,j,bi,bj:integer;
begin clrscr; randomize;
  for i:=1 to m do
   for j:=1 to n do a[i,j]:=Random(99)+1;
 
  for i:=1 to m do
  begin
    for j:=1 to n do write(a[i,j]:4);
    writeln;
  end;
  writeln;
 
  Writeln('Itog');
  bi:=1; bj:=1;
  for i:=1 to m do
   for j:=1 to n do if not(((a[i,j] mod 7)=0)and((a[i,j] mod 3)=0)) then
    begin
      b[bi,bj]:=a[i,j];
      if bj=m then begin bj:=1; bi:=bi+1; end else bj:=bj+1;
    end;
 
  for i:=1 to bi do
  begin
    for j:=1 to n do if b[i,j]<>0 then write(b[i,j]:4);
    writeln;
  end;
  readln;
end.