1. через if аля > 9 да простое, нет - составное.
2. число через Inttostr(x)в строку, получить длинну строки strlen() ее использовать как количество циклов for, в цикле сложить текущий символ с следущим и сохранить в переменную(но их по отдельности нужно в инт перекинуть в цикле для сложения)
По окончании цикла, вывести результат переменной.
Ниче сложного, текст-строка погонять туда сюда пару рас с Inttostr(x) strtoint(x).
Может есть способ и проще, хз.