(pascal) mn giỏi rin giúp em bài này với ạ em cảm ơn :))

uses    crt;
var     n,d: longint;
function tcs(n: longint): longint;
var     s,tmp: longint;
begin
        s:= 0;
        while n > 0 do
                begin
                        tmp:= n mod 10;
                        s:= s + tmp;
                        n:= n div 10;
                end;
        exit(s);
end;
function dem(n: longint): longint;
begin
        d:= 0;
        while n >= 10 do
                begin
                        n:= n div 10;
                        inc(d);
                end;
        exit(d);
end;
function sln(n: longint): longint;
var     max,tmp: longint;
begin
        if n = 0 then exit(0);
        n:= abs(n);
        max:= 0;
        while n > 0 do
                begin
                        tmp:= n mod 10;
                        n:= n div 10;
                        if tmp > max then max:= tmp;
                end;
        exit(max);
end;
begin
        clrscr;
        readln(n);
        writeln('So nguyen N co ',dem(n) + 1,' chu so');
        writeln('Tong cac chu so cua N la: ',tcs(n));
        writeln('Chu so lon nhat: ',sln(n));
        readln
end.