Нахождение минимального элемента массива и присвоение его второму массиву - PascalABC.NET

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

Здравствуйте, помогите пожалуйста с задачей. Вводится одномерный массив и в нем происходит поиск минимального элемента, после того как он находится его присваиваем во 2й массив и так повторяется до того момента, пока в 1м массиве не останется минимальных элементов. Буду благодарен

Решение задачи: «Нахождение минимального элемента массива и присвоение его второму массиву»

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

Var
  a: Array of Int64;
  b: Stack<Int64>;
  
Begin
  Sort(a);
    For var i := Low(a) to High(a) do
      b.Push(a[i]);
  a := nil;
End.

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

В данном коде происходит следующее:

Объявляются две переменные:
- a типа Array of Int64 (массив целых чисел);
- b типа Stack (стек целых чисел).
С помощью функции Sort(a) происходит сортировка массива a в порядке возрастания.
В цикле For перебираются все элементы массива a от первого до последнего:
- a[i] помещается в стек b с помощью метода Push().
После завершения цикла, массив a очищается и присваивается значение nil. Таким образом, результатом выполнения данного кода будет то, что в стеке b будет содержаться отсортированный массив a.