Если последовательность чисел а1..а12 упорядоченны по условию а1=<a2=<...=<a12, то оставить последовательность без изменений...

uses
 crt;
var
 a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12:integer;
 y:boolean;
begin
 clrscr;
 writeln('vvedite a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12');
 readln( a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12);
 y:=false;
if (a1<=a2) or (a2<=a3) or (a3<=a4) or (a4<=a5) or (a5<=a6)
or (a6<=a7) or (a7<=a8) or (a8<=a9) or (a9<=a10) or (a10<=a11)
or (a11<=a12) then
begin
 if (a1>=a2) or (a2>=a3) or (a3>=a4) or (a4>=a5) or (a5>=a6)
or (a6>=a7) or (a7>=a8) or (a8>=a9) or (a9>=a10) or (a10>=a11)
or (a11>=a12) then
 y:=true;
end;
if y then
 writeln('ostavit6 posledovatel6nost6 bez izmenenii')
 else
 writeln('posledovatel6nost6 ustanovit6 v proivopolozhnoi posledovatel6nosti');
 readkey;
end.

var a:array[1..12] of integer;
   i,k,tmp:integer;
begin
 k:=0;
 //Вводим элементы массива
 writeln('vvedite elementi massiva: ');
  for I := 1 to 12 do
    begin
     write('a[',i,']: ');
     readln(a[i])
    end;
 
//Ищем первое же несоответствие условию и прерываем все последующие итерации.
    for i := 1 to 12 do
     if a[i]>a[i+1] then begin  k:=1; break end;
 
// Меняем местами элементы
    if k=1 then
     for i := 1 to 6 do
      begin
        tmp:=a[i];
        a[i]:=a[13-i];
        a[13-i]:=tmp;
      end;
 
// Выводим массив
writeln;
    writeln('Poluchennii massiv: ');
     for I := 1 to 12 do
       writeln('a[',i,']: ',a[i]);
    readln
end.