Определить сумму цифр введенного числа a (a<1000)

в паскале, через for

var a, sum, i: integer;

begin

writeln ('Enter number: ');

readln (a);

sum : = 0;

for i:=1 to a do

begin

sum : = sum + n mod 10;

n : = n div 10 end;

end;

writeln ('Sum of digits = ', sum);

readln;

end.