Viết chương trình nhập số nguyên dương n, tính tổng các chữ số và số các chữ số của nó

Program NhatNgu;
Uses crt;
Var n,d,s: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        s:=0; d:=0;
        While n<>0 do
        Begin
                inc(d);
                s:=s+n mod 10;
                n:=n div 10;
        End;
        Write(s,' ',d);
        Readln
End.

uses crt;
var n,n1,res:longint;
    s:string;
begin
clrscr;
    readln(n);
    n1:=n; 
    str(n,s);
    while n1<>0 do
        begin
            inc(res,n1 mod 10);
            n1:=n1 div 10;
        end;
    write(res,' ',length(s));
readln;
end.