Сформировать новый массив, содержащий все элементы исходного

program cn;
 
const m = 10; //размер массива
 
var a, b: array [1..m] of integer; //исходный и целевой массивы
    i, j, k, r: integer; //счётчики
    n, c, t: integer; //суммы нечётных и чётных цифр, буфер для элемента массива
 
begin
 
  //ввод исходного массива в цикле
  writeln('Enter array:'); //сообщение "введите масссив"
  for i := 1 to m do
    repeat
      write('a[', i:2, '] = ');
      readln(a[i]); //вводим очередной элемент
      if a[i] < 0 then //если число отрицательное,
        writeln('Number may be >= 0') //сообщение: "число должно быть не меньше нуля"
    until a[i] >= 0; //повторяем ввод числа, если оно меньше нуля
 
  writeln; //пустая строка для красоты, эту комманду можно не писать
 
  //определение нужных элементов и копирование их из входного массива в выходной
  k := 0; //номер элемента выходного массива, пока, скажем, никакой
  for i := 1 to m do //пробегаемся по всем элементам входного массива
    begin
      if a[i] >= 10 then //у чисел < 10 не может быть суммы чётных цифр, их не учитываем
        begin //у числа более двух цифр, считаем суммы
          n := 0; //сумма нечётных цифр пока равна нулю
          c := 0; //сумма чётных цифр пока равна нулю
          t := a[i]; //копируем элемент массива в буфер
          r := 0; //номер разряда числа, пока "никакой"
          while t > 0 do //последовательно берём цифры, считаем суммы
            begin
              r := r + 1; //номер текущего разряда
              if odd(r) //если разряд нечётный,
                then n := n + t mod 10  //то прибавляем его к сумме нечётных разрядов
                else c := c + t mod 10; //иначе прибавляем его к сумме чётных разрядов
              t := t div 10 //убираем уже учтённый разряд: делим число нацело на 10
            end;
          if n = c then //если суммы нечётных и чётных разрядов равны,
            begin       //копируем элемент входного массива в выходной массив
              k := k + 1; //номер элемента выходного массива, куда будем писать из входного
              b[k] := a[i] //копируем
            end;
        end;
    end;
 
  //печать результата
  writeln('Result:'); //сообщение "результат"
  if k > 0
    then for i := 1 to k do write(' ', b[i]) //если элементы найдены, печатаем их
    else writeln('Elements not found!'); //если не найдены, печатаем "элементы не найдены"
 
  readln //ждём нажатия <Enter> перед тем, как закрыть программу
 
end.