Циклы в Паскале

var a,k:integer; 

begin 

writeln ('Введите число'); 

readln (a); 

k:=0; 

while a<>0 do begin 

a:=a div 10; 

k:=k+1; 

end; 

writeln ('Кол-во цифр ',k); 

end.