Массив имеет четное число элементов. заполните массив случайными числами и выполнить реверс отдельно в первой половине и второй половине.
пример:
массив:
1 2 3 4 5 6
результат:
3 2 1 6 5 4
python, )

Const
n=10;
var
a:array[1..n]of integer;
i,j,buf:integer;
begin
   for i:=1 to n do
      begin
         a[i]:=random(3);
         write(a[i]:4);
      end;
{сортирую по возрастанию}
 for i:=1 to n-1 do
    for j:=i+1 to n do
       if a[i]<a[j]then
         begin
               buf:=a[i];
                a[i]:=a[j];
                a[j]:=buf;
         end;
{пересылаю нули в конец масива}
for i:=1 to n-1 do
    for j:=i+1 to n do
       if a[i]=0 then
         begin
               buf:=a[i];
                a[i]:=a[j];
                a[j]:=buf;
         end;
for i:=1 to n do
   write(a[i]:4);
end.

Var
a:string;
i,n,j:integer;
buf:char;
begin   
readln(a);   
n:=length(a);     
    for i:=n downto 1 do         
         if (a[i]<'1')or(a[i]>'9') then           
             delete(a,i,1);    {удалила символы кроме цифр}        
     n:=length(a);   
   for i:=1 to n-1 do         
      for j:=i+1 to n do           
         if a[i]>a[j]then      {сортирую по возрастанию, на первом месте самая         
              begin              маленькая}          
                    buf:=a[i];                     
                    a[i]:=a[j];                     
                    a[j]:=buf;                 
               end;               
  writeln(a[1]);     {вывожу первую цифру}   
end.