Для каждого столбца матрицы отдельно вывести в возрастающем порядке те числа, в которых нет цифр, кратных 3

program prog;
 
function IsContainDigitsMulOfThree(value: integer): boolean;
begin   
   while(value <> 0) do
   begin      
      if(((value mod 10) mod 3) = 0) then
      begin  
     IsContainDigitsMulOfThree:= true;
     Exit;
      end;
      value:= value div 10;
   end;
   
   IsContainDigitsMulOfThree:= false;
end; 
 
{ ------------ }
   
const
   m = 4;
   n = 3;
var
   a          : array[1..m, 1..n] of integer;
   b          : array[1..m] of integer;        
   i, j, k, l : integer;
   q, t       : integer;   
begin
   Randomize;
 
   { ---заполняем двумерный массив случайными числами--- }
   
   for i:= 1 to m do
   begin      
      for j:= 1 to n do
      begin
     a[i,j]:= Random(1000);
     Write(a[i,j]:5);
      end;
      WriteLn;
   end;
 
   {-------------------------------}
   
   for j:= 1 to n do
   begin
      q:= 0;
 
      { ---ищем соответствующие значения для текушего столбца--- }
      
      for i:= 1 to m do
      begin  
     if(IsContainDigitsMulOfThree(a[i,j]) = false) then
     begin
        Inc(q);
        b[q]:= a[i,j];
     end;
      end;
 
      { ---сортируем--- }
      
      for k:= q-1 downto 1 do
      begin      
     for l:= 1 to k do
     begin
        if(b[l + 1] < b[l]) then
        begin
           t:= b[l + 1];
           b[l + 1]:= b[l];
           b[l]:= t;
        end;
     end;
      end;
 
      { ---выводим на экран--- }
      
      Write(j, ': ');
      for k:= 1 to q do
     Write(b[k]:5);
      WriteLn;      
   end;
end.