Даны 2 числа. Определить цифры, входящие в запись как первого, так и второго числа - PascalABC.NET

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

даны 2 числа.Определить цифры,входящие в запись как первого,так и второго числа.

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

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

begin
  writeln(
    ReadLnInteger('Первое число =').ToString().ToCharArray().Intersect(
      ReadLnInteger('Ыторое число =').ToString().ToCharArray()
    ).OrderBy(c -> c));
end.

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

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

Выводит на экран запрос «Первое число =».
Считывает и сохраняет в переменную первое целое число, введённое пользователем.
Преобразует это число в строку.
Сохраняет в переменную только цифры из этой строки.
Выводит на экран запрос «Ыторое число =».
Считывает и сохраняет в переменную второе целое число, введённое пользователем.
Преобразует это число в строку.
Сохраняет в переменную только цифры из этой строки.
Находит пересечение (интерсекцию) цифр из первого и второго числа.
Сортирует полученные цифры в порядке возрастания.
Выводит на экран результат.