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

{ Дан двумерный массив В размерностью M*N. По выбору пользователя заполнить матрицу одним из следующих способов: ручной ввод или ввод с помощью генератора случайных чисел. Найти сумму чётных элементов. Ввод матрицы оформить в виде подпрограмм}
const
  m = 100;
type
  mas = array [1..m, 1..m] of integer;
var
  a: mas;
  i, j: integer;
  n: integer;
  sum: integer;
function enter_mas(x: mas): integer;
var
  h: integer;
  l: integer;
begin
  for h := 1 to n do 
    for l := 1 to n do a[h, l] := random(10) - 5; 
end;
begin
  readln(n);
  randomize; 
  {Функция ввода массива}
  enter_mas(a); 
  {Проверяем заполняет ли функция рандомно массив}
  for i := 1 to n do 
    for j := 1 to n do writeln(a[i, j]:6);
  {Вычисление суммы чётных элементов}
  for i := 1 to n do
    for j := 1 to n do
      if (i mod 2 = 0) and (j mod 2 = 0) then sum := sum + a[i, j];
  writeln('Сумма чётных элементов равна: ', sum);
end.