Определить сумму цифр в числе — Pascal(Паскаль)

var
a:longint;
s:integer;
begin
writeln('vvedite chislo');
readln(a);
repeat
s:=s+a mod 10;
a:=a div 10;
until a=0;
writeln('summa=',s);
readln;
end.