Найти среднее арифметическое числа а — Pascal(Паскаль)

program test;
uses crt;
var a, b: integer;
    count, sum: integer;
    arithm: real;
Begin
 write('A = '); readln(a);
 
 while (a>=9) do
 begin
  sum:=sum+(a mod 10);
  a:=a div 10;
  inc(count);
 end;
 
 arithm:=(sum+a)/(count+1);
 writeln('Arithm = ',arithm);
End.