В массиве после каждого числа, состоящего из одинаковых цифр, вставить еще одно такое же число - Pascal

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

Задача из раздела - Регулярные типы данных. В массиве целых положительных чисел после каждого числа, состоящего из одинаковых цифр, вставить еще одно такое же число. Зараннее спасибо.

Решение задачи: «В массиве после каждого числа, состоящего из одинаковых цифр, вставить еще одно такое же число»

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

function IsEqualDigits(n : integer) : boolean;
var
   digit : integer;
   Equal : boolean;
begin
   digit := n mod 10; Equal := true;
   while n >= 10 do
   begin
      Equal := Equal and ((n mod 10) = digit);
      n := n div 10;
   end;
   IsEqualDigits := Equal;
end;

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

Входной параметр функции — число n.
Переменная digit инициализируется как остаток от деления n на 10.
Переменная Equal инициализируется как true.
Цикл while проверяет все цифры числа n, начиная с последней.
Внутри цикла проверяется равенство текущей цифры числу digit.
Если текущая цифра равна digit, то переменная Equal остается true.
Если текущая цифра не равна digit, то переменная Equal становится false.
Число n делится на 10.
Цикл while повторяется до тех пор, пока число n не станет однозначным.
Функция возвращает значение переменной Equal.
В основной программе объявлен массив Array и инициализирован значениями [1..10].
Цикл for перебирает элементы массива Array.
Внутри цикла проверяется, является ли текущий элемент массива числом с одинаковыми цифрами, используя функцию IsEqualDigits.
Если текущий элемент массива является числом с одинаковыми цифрами, то к нему добавляется еще одно такое же число.
После окончания циклов выводится массив Array.
В основной программе объявлена и инициализирована переменная Result как true.
Если массив Array содержит хотя бы одно число с одинаковыми цифрами, то переменная Result становится false.
Результат программы сохраняется в переменной Result.
Программа выводит значение переменной Result.
Конец программы.