Найти сумму цифр каждого числа и записать в новый массив

program task;
var 
  n, i : longint;
  a, b : array[1..100] of longint;
  
function f(x : longint) : longint;
var 
  d, s : longint;
begin
  s := 0;
  while(x > 0) do begin
    d := x mod 10;
    s := s + d;
    x := x div 10;
  end;
  
  f := s;
end;
 
begin
  readln(n);
  for i := 1 to n do read(a[i]);
  
  for i := 1 to n do b[i] := f(a[i]);
  for i := 1 to n do write(b[i], ' ');
end.

program pr;
type
  arr = array [1..100] of integer;
var
  a, b: arr;
  i, n, s, k, m: integer;
function sa(x: integer): integer;
var
  kS: integer;
begin
  kS := 0;
  while x <> 0 do 
  begin
    kS := kS + (x mod 10);
    x := x div 10;
  end;
  sa := ks;
end;
begin
  randomize;
  k := 1;
  writeln('Введите размер массива');
  readln(n);
  for i := 1 to n do
  begin
    a[i] := random(21);
    write(a[i]:3);
  end;
  writeln;
  for i := 1 to n do
  begin
    m := a[i];                // или же без m, просто b[i]:=sa(a[i]);
    b[i] := sa(m);
  end;
  writeln('Новый массив');
  for i := 1 to n do
    write(b[i]:3);
end.