Каждый из элементов одномерного массива заменить суммой цифр этого элемента

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils, Windows;
 
const
  M = 20;
  Base = 10; //Основание десятичной системы счисления.
var
  Arr : array[1..M] of Integer;
  i, N, Num, Sum : Integer;
  S : String;
begin
  //Переключение окна консоли на кодовую страницу CP1251 (Win-1251).
  //Если после переключения русские буквы показываются неверно,
  //следует открыть системное меню консольного окна - щелчком мыши в левом
  //верхнем углу окна консоли и выбрать:
  //Свойства - закладка "Шрифт" - выбрать шрифт: "Lucida Console".
  SetConsoleCP(1251);
  SetConsoleOutputCP(1251);
 
  repeat
    Write('Задайте количество элементов в массиве 1..', M, ': ');
    Readln(N);
    Writeln('Задайте элементы массива:');
    for i := 1 to N do begin
      Write('Элемент ', i, ': ');
      Readln(Num);
      Sum := 0;
      repeat
        Sum := Sum + Num mod Base;
        Num := Num div Base;
      until Num = 0;
      Arr[i] := Sum;
    end;
 
    //Ответ.
    Writeln('Массив после изменения:');
    for i := 1 to N do begin
      if i > 1 then Write(', ');
      Write(Arr[i]);
    end;
    Writeln;
 
    Writeln('Повторить - Enter, выход - любой символ + Enter.');
    Readln(S);
  until S <> '';
end.

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils, Windows;
 
const
  M = 20;
  Base = 10; //Основание десятичной системы счисления.
var
  Arr : array[1..M] of Integer;
  i, N, Num, Sum : Integer;
  S : String;
begin
  //Переключение окна консоли на кодовую страницу CP1251 (Win-1251).
  //Если после переключения русские буквы показываются неверно,
  //следует открыть системное меню консольного окна - щелчком мыши в левом
  //верхнем углу окна консоли и выбрать:
  //Свойства - закладка "Шрифт" - выбрать шрифт: "Lucida Console".
  SetConsoleCP(1251);
  SetConsoleOutputCP(1251);
 
  Write('Задайте количество элементов в массиве 1..', M, ': ');
  Readln(N);
  Writeln('Задайте элементы массива:');
  for i := 1 to N do begin
    Write('Элемент ', i, ': ');
    Readln(Num);
    Sum := 0;
    repeat
      Sum := Sum + Num mod Base;
      Num := Num div Base;
    until Num = 0;
    Arr[i] := Sum;
  end;
 
  //Ответ.
  Writeln('Массив после изменения:');
  for i := 1 to N do begin
    if i > 1 then Write(', ');
    Write(Arr[i]);
  end;
  Writeln;
  Readln;
end.