С помощью процедуры вывести сумму цифр числа( Pascal)

program ppvschch;

uses

crt;

procedure summ(n: integer);

var

sum: integer;

begin

sum := 0;

while (n <> 0) do

begin

sum := sum + (n mod 10);

n := n div 10;

end;

writeln('Сумма цифр числа: ', sum);

end;

begin

summ(123);

readln;

end.