Паскаль: найти сумму цифр в числе при оператора repeat.

Var
   A:longint;
   S:integer;
Begin
Write('Введите целое число: ');Read(A);
S:=0;
A:=Abs(A);
Repeat
S:=S+A mod 10;
A:=A div 10;
Until A = 0;
Write('Сумма цифр числа: ',S);
End.