задано натуральное число n. Найти сумму цифр данного числа с помощью функции !!!(паскаль)

Помогите пожалуйста решить задачу! Вот решал ...но нужно через функцию! помогите плиз оч нужно !
program roro;
var n,sum,mult:integer;
begin
write(' Введите число: ');
readln(n);
sum:=0;
mult:=1;
while n>0 do begin
sum:= sum+n mod 10;
mult:=mult*(n mod 10);
n:=n div 10
end;
writeln(' Сумма = ', sum);
writeln(' Произведение = ', mult);
end.