Здравствуйте)Вводится натуральное число. Определить среднее арифметическое его цифр.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.