Написать программу находящую количество цифр вводимого неотрицательного положительного числа

Var
  a, c : integer;
begin
  readln (a);
  c := 0;
  if (a = 0) then c := 1
  else
    while a <> 0 do
    begin
      c := c + 1;
      a := a div 10;
     end;
  writeln (c);
end.