Дано целое число N >0. Используя операции деления нацело и взятия остатка от деления, найти количество и сумму его цифр — Pascal(Паскаль)

uses crt;
var
    k,i,f,n,l:longint;
begin
    clrscr;
    readln(n);
    f:=0;
    l:=0;
    while n<>0 do
    begin
        k:=n mod 10;
        f:=f+k;
        l:=l+1;
        n:=n div 10;
    end;
    writeln(f);
    writeln(l);
    readln;
end.