Счёт кол-во знаков в числе (Pascal)

[_fynjy_]

Можете помочь, как написать программу в паскале чтобы она считала кол-во цифр в числе.
Например: ввожу 1234=4 цифры

[alex_fcsm]

Переводите число в строку, а потом просто определяйте его длину) Или делите все время на 10, пока результат отделения больше 0

[Hacker19_90]

while (chislo <> 0) do
begin
     chislo := chislo mod 10;
     Inc(KOL_Cifr);
end;

[_fynjy_]

Написал

program r;
uses crt;
var a:integer;
begin;
ClrScr;
readln(a);
while (a <> 0) do
begin
a := a mod 10;
writeln (a);
readln;
end;
end.

Но если ввести 47 или любое без последовательности то не работает(

[_fynjy_]

Или он считает с погрешностью

[Hacker19_90]

Сообщение от _fynjy_

Или он считает с погрешностью

Прошу прощения я операторы перепутал!
Вот рабочий код

program r;
uses crt;
var a, count:integer;
begin;
ClrScr;
count := 0;
readln(a);
while (a <> 0) do
begin
a := (a div 10);
Inc(count);
end;
Writeln ('Кол-во цифр = ', count)
readln;
end.

[_fynjy_]

О спасибо, буду знать))