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

//Инициализация a,i,sum//
//Ввод А//
if a>=1000 then readln <A>
   else for i:=1 to A do
   sum:=sum+1;
writeln <,sum>;
readln;
end;

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.