СРОЧНО , пожалуйста!!!!!! Решить в Паскаль. Дано число. Найти количество цифр в числе и их сумму.

begin

var a := ReadInteger;

var s := 0;

println(a.ToString.Length);

while a <> 0 do

begin

s += a mod 10;

a := a div 10;

end;

println(s);

end.