const n = 10;
var
 i, x, s: integer;
 arr: array[1 .. n] of integer;
begin
 for i := 1 to n do
   begin
     x := arr[i];

     { Найдем сумму цифр числа: }
     s := 0;
     while x > 0 do
     begin
       inc(s, x mod 10); x := x div 10
     end;

     { и заменим число на найденную сумму: }
     arr[i] := s;
 end;
end.