Сумма цифр. вводится целое положительное число а< =10^9. найдите сумму цифр введенного числа. нужно написать программы на языке паскаль. 9 класс

Var i,n,sum:integer; s,d:string; a:longint;

begin

writeln('Введите целое положительное число а<=10^9');

Readln(a);

s:= a.ToString();

n:= length(s);

for i:=1 to n do begin

d:= copy(s,i,1);

sum:= sum + strtoint(d);

end;

write('sum = ',sum);

end.