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

Нужно написать программы на языке Паскаль. 9 класс. Прошу, помогите.

var i,n,sum:integer; s,d:string; a:longint;beginwriteln('Введите целое положительное число а<=10^9');Readln(a);s:= a.ToString();n:= length(s);for i:=1 to n do begind:= copy(s,i,1);sum:= sum + strtoint(d);end;write('sum = ',sum);end.