Pascal.Задача с циклами

[zhopenzhopen]

Вот условие задачи:
Ввести натуральное число n (от - 1000000 до 1000000).Посчитать сумму цифр этого числа.
Пример: вводим 12345,программа должна посчитать сумму этих цифр,тут получается 15.

В моей программе правильно подсчитываются только первые 2 числа.
Вот мой код.

Program Primer;
uses Crt;
var
n:LongInt;
s,p1:integer;
begin
ClrScr;
Write('Vvedite N: ');ReadLn(n);
s:=0;
Repeat
p1:=n div 10;
s:=p1+n mod 10;
until n=n;
WriteLn('Summa: ',s);
end.

[Прик]

  ...
  Write('Vvedite N: ');
  ReadLn(n);
  n := Abs(n);
  repeat
    s := s + n mod 10;
    n := n div 10;
  until n < 10;
  s := s + n;
  WriteLn('Summa: ',s);