Задача на цикл Опции

[Барс]

Нужон хелп. Никак не могу добиться, чтобы лишний раз цикл не прокручивался.

Задача.Дано целое число N (> 1). Вывести наибольшее целое K, при котором выполняется неравенство 3^K < N, и само значение 3^K. 

Program j;
uses Crt;
var
  b, n, k:integer;
begin
  ClrScr;
  write('Введите n='); readln(n);
  b:=1; k:=0;
    repeat
      k:=k+1;
      b:=b*3;
    until b>n;
  writeln('k=', k, ' 3^k=', b);
readln;
end.

С while тоже не получается.