)вводится натуральное число. определить среднее арифметическое его цифр.pascal) не могли бы ?

 var   
a,s,k : integer;   
Sr : real; 
begin 
s := 0; k := 0; 
readln (a);   
While a > 0 do   
begin     
s := s + a mod 10;     
a := a div 10;     
k := k +1;   
end; 
Sr := S/k; 
writeln (Sr);  
end.