Помогите пожалуйста с задачей по информатике Дано число. Отыскать сумму и

Решение, который отдал другой юзер, слишком сложное. Я могу предложить другой вариант, который будет гораздо проще в понимании.

Var a,s,s1:integer;

Begin

 write('Введите число -gt; ');

 readln(a);

 s1:=1;

 while agt;0 do

 begin

   s:=s+(a mod 10);

   s1:=s1*(a mod 10);

   a:=a div 10;

 end;

 writeln('Сумма цифр числа равна -gt; ',s);

 writeln('Произведение цифр числа равно -gt; ',s1);

End.

uses

SysUtils;

var

num: String;

sum, mult, i: Integer;

begin

sum := 0;

mult := 1;

ReadLn(num);

for i := 1 to Length(num) do

begin

sum := sum + StrToInt(num[i]);

mult := mult * StrToInt(num[i]);

end;

WriteLn('Сумма - ', sum);

WriteLn('Творение - ', mult)

end.