Dodawanie liczb z tej samej liczby TP

[sla8y 0]

Witam! Przeszukałem chyba większość zasobów internetu i nie mogąc znaleźć odpowiedzi jestem zmuszony napisac posta... Otóż chodzi mi o formułke do Turbo Pascala która dodawała by składowe jakies dowolnej liczby dla przykładu mamy liczbe 2015 program mial by dodawac pokoleji 2+0+1+5=8. Tak aż otrzyma sie cyfre.

Z góry dziekuję za pomoc.

[luk1999 17]

Str(liczba, s);
suma := liczba;
if Length(s) > 1 then
  for x := 2 to Length(s) do
    suma := suma + Int(s[x]);

[sla8y 0]

A jakie typy zmiennych? Bo co dobiore to wywala rózne od siebie błedy.

[luk1999 17]

liczba, suma: integer;

s: string;