Написать программу, определяющую (отвечающею на вопрос) - больше ли числа х сумма цифр введённого числа

Var a, b, x, s:integer;

begin

write ('a = ') ;

readln (a) ;

write ('x = ') ;

readln (x) ;

b:=a;

s:=0;

while b>0 do

begin

s:=s+b mod 10;

b:=b div 10;

end;

writeln ('s = ', s) ;

if s>x

then writeln ('Сумма цифр больше ', x)

else writeln ('Сумма цифр не больше ', x) ;

end.

Пример:

a = 31854

x = 15

s = 21

Сумма цифр больше 15