Подсчитать количество (сумму)цифр в записи целого неотрицательного числа. (в паскале авс)

Program asd;
var n,a,b:integer;
begin read(n);
a:=n;
while a>0 do begin
b:=a mod 10+b;
a:=a div 10;
end;
writeln(b);
end.