Дано шестизначное число . найти сумму его цифр ( паскаль ) ! !

Var sum:integer;
      n:longint;
begin
    readln(n);
    sum := 0;
    repeat 
        sum := sum + (n mod 10);
        n := n div 10;
    until n = 0;
    write(sum);
end.

Var
   A:longint;
   S:integer;
Begin
Write('Введите целое число: ');
ReadLn(A);
if A < 0 then A:=-A;
S:=0;
While A > 0 do
   Begin
   S:=S+A mod 10;
   A:=A div 10;
   End;
WriteLn('S = ',S)
End.

Пример работы программы:

Введите целое число: 123456
S = 21