Помогите составить программу решения задачи: ввести целое число и найти сумму его цифр.

Это дельфи. Но и на паскале должно работать.
var

 i,sum: integer;

 digit: string;

....

   Readln(digit);

   sum := 0;

   for i := 1 to Length(digit) do

     sum := sum + StrToInt(digit[i]);

   Writeln('Sum: ', sum);