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

Формулировка задачи:

дан одномерный массив, в котором хранятся N целых чисел. найти сумму цифр каждого числа и записать в новый массив.

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

Листинг программы

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.

Объяснение кода листинга программы

Список действий в коде:

Объявление переменных и функции.
Функция sa() суммирует цифры числа.
Запрос размера массива.
Инициализация первого элемента массива a случайным числом.
Вывод значения первого элемента массива a.
Суммирование цифр каждого элемента массива a с помощью функции sa() и запись результата в массив b.
Вывод нового массива.