Написать подпрограммы для сортировки массива поиска минимально максимальных элементов ввода всех чётных по номеру элементов массива

// PascalABC.NET

procedure Сортировать(var a: array of integer) := a.Sort;

procedure МинМакс(a: array of integer; var min, max: integer);

begin

 min := a.Min;

 max := a.Max

end;

procedure Вывод(a: array of integer) := a[1::2].Println;

begin

 var n := ReadInteger('n =');

 var V := ArrRandom(n, -99, 99);

 V.Println;

 var mn, mx: integer;

 МинМакс(V, mn, mx);

 Println('Минимум', mn, '  максимум', mx);

 Print('Четные по номеру:');

 Вывод(V);

 Writeln('Сортировка');

 Сортировать(V);

 V.Print

end.

#include <iostream>
#include <iomanip>
using namespace std;

int main() {
      int n;
      cout<<"n = ";  cin>>n;   // ввод количества элементов массива 
      int a[n];
// заполнение массива и вывод на экран
      for (int i=0;i<n;i++) { 
           a[i]=rand()%15;     cout<<a[i]<<" "; 
      } 
      cout<<endl;  // перевод строки
// сортировка массива по возрастанию
      for (int i=0; i<n-1; i++)
      for (int j=i+1; j<n; j++) 
           if (a[i]>a[j]) swap(a[i],a[j]);
// вывод 4 минимальных
      cout<<"four min numbers:  ";
      for (int i=0; i<4; i++)  cout<<a[i]<<" ";
      cout<<endl;
      system("pause");  // ожидание ввода с клавиатуры
      return 0;
  }

#include <iostream>
#include <iomanip>
using namespace std;

int main() {
      int n;
      cout<<"n = ";  cin>>n;   // ввод количества элементов массива 
      int a[n];
// заполнение массива и вывод на экран
      for (int i=0;i<n;i++) { 
           a[i]=rand()%15;     cout<<a[i]<<" "; 
      } 
      cout<<endl;  // перевод строки
// сортировка массива по возрастанию
      for (int i=0; i<n-1; i++)
      for (int j=i+1; j<n; j++) 
           if (a[i]>a[j]) swap(a[i],a[j]);
// вывод 4 минимальных
      cout<<"four min numbers:  ";
      for (int i=0; i<4; i++)  cout<<a[i]<<" ";
      cout<<endl;
      system("pause");  // ожидание ввода с клавиатуры
      return 0;
  }