Viết chương trình nhập số nguyên a. Tính tổng S và trung bình cộng các chữ số của a

program Tin_hoc;

uses crt;

var a,S,i,x,y,k:integer;

      tbc:real;

begin

clrscr;

write('Nhap so a: ');readln(a);

x:=a;k:=1;S:=0;

while x>9 do

begin

  y:=x mod 10;

  x:=x div 10;

  k:=k+1;

  S:=S+y

end; 

S:=S+x;

tbc:=S/k;

writeln('Tong S cac chu so cua a la: S = ',S);

writeln('Trung binh cong cac chu so cua a la: ',tbc:0:2);

readln;

end.

Nhớ cho mik câu trả lời hay nhất nha

Program FNG;
Uses crt;
Var a: longint;

Function TBC(a: longint): real;
Var s,d: longint;
Begin
        s:=0; d:=0;
        While a<>0 do
        Begin
                s:=s+a mod 10;
                inc(d);
                a:=a div 10;
        End;
        TBC:=s/d;
End;

Begin
        Clrscr;
        Write('Nhap a: '); Readln(a);
        Write('TBC: ',tbc(a):0:2);
        Readln
End.