Алгоритм подсчёта количества цифр Опции

[Диона]

Подскажите алгоритм подсчёта количества цифр целого числа. Никак не получается разобраться.

[Lapp]

Определение количества цифр через строку - это обман.. Просто тем самым работа перекладывается на готовые паскалевские процедуры (которые работают, скорее всего, именно делением). И если будет задача определения количества цифр в другой системе отсчета, то этот метод просто не работает.

Добавлено через 2 мин.
Какой сбой?..

n:= 0;
i:= 0;
repeat
  n:= n div 10;
  Inc(i)
until n=0;