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

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