Найти сумму цифр целого положительного числа

Begin
write('Введите целое положительное число m: ');
var m := ReadInteger;
  assert(m > 0);
var s := 0;
while m > 0 do
begin
s += m mod 10;
m := m div 10;
  end;
writeln('Сумма цифр числа m равна ', s);
end.