Определить, что сумма цифр числа меньше а (а вводится с клавиатуры) паскаль

Var a,b,c,d:real;
begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);
if a > b then writeln(a,'больше чем',b);
else writeln(a,'Меньше чем',b);
end.