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

var
sum,s:string;
n,a:integer;
begin
readln(n);

sum:='';
while (n>0) do
Begin
a:=n mod 10;
n:=n div 10;
str(a,s);
sum:=sum+s;
End;

end.