Tìm các chữ số of 1 số

Cho số n nhập từ bàn phím. Hãy cho biết :
       - Số đó có bao nhiêu chữ số?
       - Chữ số đầu tiên, chữ số cuối cùng, tổng các chữ số của số đó
                                                                 Giải
Uses Crt;
Var
   a:Array[1..50] of Integer;
   i,j,n,dem,sd,sc,tong,t: Longint;
BEGIN
       ClrScr;
       Write('Nhap n = '); ReadLn(n);t:=n;
       i:=0;
       Repeat
           i:=i+1;
           a[i]:= n mod 10;
           n:= n div 10;
       until n= 0;
       tong:=0;
       For j:=1 to i do tong:=tong+a[j];
       Write('=> So ',t,' co ',i,' chu so');
       Writeln('   So dau la : ',a[i]);
       Writeln('   So cuoi la: ',a[1]);
       Writeln('   Tong cac chu so la: ',tong);
   ReadLn;
End.