2. Укажите наибольшее и меньшее из таких чисел , при вводе которых

Немножко изменив ваш код я получил вот это:

var x, a, b : integer;
begin
  for var i:=0 to MaxInt do
    begin
      a := 0; b := 1;
      x:=i;
      while x gt; 0 do
        begin
          a := a + 1;
          b := b + (x mod 6);
          x := x div 6;
        end;
      If (a=3) and (b=7) then Println(a,b,i);
  end;
end.

Итог:
3 7 41 
3 7 46 
3 7 51 
3 7 56 
3 7 61 
3 7 66 
3 7 76 
3 7 81 
3 7 86 
3 7 91 
3 7 96 
3 7 111 
3 7 116 
3 7 121 
3 7 126 
3 7 146 
3 7 151 
3 7 156 
3 7 181 
3 7 186 

Судя с результата, ответ: Минимальное - 41, Наибольшее - 186