Проверка числа на n-значность

[BlackFishSQL]

Возникла идея проверки числа которое мы вводим с клавиатуры на n-значность !

Можно ли сделать как-бы свою команду по которой всё это определялось!
Тоесть тупо пишу if a>=0 and a=<9 then writeln(число такое то) else и так далее!

Но не логично так делать ифами каждый раз поэтому есть ли способ самому сделать команду
которая обрабатывала это сама только как это написать в обной каманде???:
к примеру там

KolRaz(a,s); a-само число! s- типа string сюда выводится какое число

[Mad_Cat]

function Kolraz(a:integer):integer;
var i:integer;
begin
i:=0;
while a<>0 do begin
i:=i+1;
a:=a div 10;
end;
Kolraz:=i;
end;

[Serge_Bliznykov]

я уже на форуме давал ответ на этот вопрос.
искать не буду, проще повторить тоже самое..

вот

var
  s : string;
  N,N0, Len : Longint;
  i : integer;
begin
  ReadLn(N);
  if N<0 then begin
     WriteLn('отрицательные числа для простоты игнорируем...');
     Halt;
  end;

  {способ 1}
  Str(N, s);
  WriteLn('Количество цифр = ',Length(s));
  Readln;

  {способ 2}
  Len := 0;
  N0 := N;
  repeat
    Inc(Len);
    N0 := N0 div 10;
  until N0=0;
  WriteLn('Количество цифр = ',Len);
  Readln;

  {способ 3}
  if N=0 then WriteLn('Одна цифра')
  else begin
    Len := trunc(ln(N)/ln(10))+1;
    WriteLn('Количество цифр = ',Len);
  end;
  Readln;
end.