Перестановка элементов массива по количеству делителей - PascalABC.NET

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

Задание такое: Заполните массив случайными числами в интервале (100,999) и переставьте их по возрастанию количества делителей. Я написал программу до момента, когда переставляются делители, но не знаю, как их привязать к элементами массива, чтобы те тоже отсортировались. Помогите доработать, пожалуйста

const N=10; 
var a, b: array[1..N] of integer; 
i, c, j, t, k:integer; 
begin 
Writeln('Программа для перестановки элементов массива по возрастанию количества делителей'); 
writeln('Элементы массива:'); 
for i:=1 to n do begin 
a[i]:=random(100,999); 
write(a[i]:4); 
end; 
writeln; 
writeln('Количество делителей элементов массива:'); 
for i:=1 to n do begin 
c:=1; 
for j:=1 to (a[i] div 2) do 
if a[i] mod j = 0 then 
c:=c+1; 
b[i]:=c; 
write; 
write(b[i]:4); 
end; 
writeln; 
writeln('Делители элементов массива в результате перестановки:'); 
for i:=n downto 2 do 
for j:=1 to i-1 do 
if b[j+1]

		

Решение задачи: «Перестановка элементов массива по количеству делителей»

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

const
  N = 10;
 
begin
  Writeln('Программа для перестановки элементов массива по возрастанию количества делителей'); 
  var a := ArrRandomInteger(N, 100, 999);
  writeln('Элементы массива:');a.Println(#9);
  
  writeln('Количество делителей элементов массива:');
  var divs := a.Select(x -> 1 + Range(1, x div 2).Count(d -> x mod d = 0)).Println(#9).ToArray;
  
  writeln('Делители элементов массива в результате перестановки:');
  var ix := divs.Indexes.OrderBy(x -> divs[x]);
  ix.Select(i -> divs[i]).Println(#9);
  
  writeln('Элементы массива после перестановки: ');
  ix.Select(i -> a[i]).Println(#9); // можно и a := ix.Select(i -> a[i]).Println(#9);
end.

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

В начале программы объявляется константа N, которая задает размер массива.
Затем выводится приветствие и описание задачи.
Создается массив a случайных целых чисел размером N.
Выводится список элементов массива с их индексами.
Далее, для каждого элемента массива вычисляется количество делителей (нечётных чисел, на которые он делится без остатка).
Полученные количества делителей сохраняются в массиве divs.
Выводится список этих количеств с их индексами.
Затем, элементы массива a переставляются в соответствии с количеством их делителей, и новый список делителей сохраняется в массиве divs.
Выводится новый список делителей.
Наконец, выводится новый список элементов массива после перестановки.