Ввести целое число и найти сумму его цифр

program raf105;

var abc,a,sum: integer;

begin

write('Введите число: ');

readln(abc);

repeat

 a:= abc mod 10;

 sum:= sum+a;

 abc:= abc div 10;

until a=0;

writeln('Сумма цифр: ',sum);

end.