D11. Проверка степени

Решите задачу одним циклом while, допускается применение условных операторов.

Задано два числа a и b. Необходимо проверить, является ли число a степенью числа b. Т.е. существует ли такое целое неотрицательное число c, что bc = a. Если ответ положительный, выведите c, иначе выведите -1.
var
 a,b,c,i,j,z,x:longint;
 begin
  readln(a,b);
  c:=1;
  i:=0;
  z:=b;
  x:=0;
  while i<32168 do
   if b=a then begin
     x:=1;
      break;
      end
    else begin
   b:=b*z;
   c+=1;
   i+=1;
   end;
  if x=0 then c:=-1;
  if (a=1) then c:=0;
  writeln(c);
 end.