Соберите программу на языке паскаль. вывести на экран сумму цифр целого числа m> 0

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.