обработка символьных данных в паскале

[Olgaandsasha]

дано натуральное число n. определить кол-во цифр в этом числе. определиь сумму цифр.

program lr1b;
var
F: string;
i,sum,n,code, kol: Integer;
begin
writeln('F=');
readln(F);
writeln('kol=', length(F));
sum:=0;
val(F,n,code);
sum:=sum+F[i];
writeln('sum=',sum:5);
readln;
end.

помогите пожалуйста. не могу понять что не так.

[Stilet]

С потолка:

определиь сумму цифр.

val(F,n,code);
while n>0 do begin sum:=sum+(n mod 10); n:=n div 10; end;
writeln('sum=',sum:5);

[Olgaandsasha]

а зачем здесь mod?

[Stilet]

Чтоб получить очередную цифру числа.