Antimonotini niz

program antimonoton;

type
    niz = array[1..20] of integer;
var
 n,l,p,k,m:integer;
 x,y,z: niz;

 procedure UnosNiza (var n:integer;var x:niz);
 var i:integer;
 begin
    write('Broj clanova niza: ');
    readln(n);
    for i:=1 to n do
        begin
        write ('x[',i,']=');
        readln(x[i]);
        end;
 end;

 procedure StampaNiza (n:integer; x:niz);
 var i:integer;
 begin
    write('Elementi niza: ');
    for i:=1 to n-1 do  write (x[i],',');
    writeln(x[n]);
 end;

 procedure antimonoton(n:integer; var x:niz);
 var i,t:integer;
 begin
    for i:=1 to n-2 do
    begin
        if(x[i+1]-x[i])*(x[i+2]-x[i+1])>0 then
        begin
            t:=x[i+1];
            x[i+1]:=x[i+2];
            x[i+2]:=t;
        end;

    end;
 end;






 begin
    UnosNiza(n,x);
    StampaNiza(n,x);
    antimonoton(n,x);
    StampaNiza(n,x);
    readln;

 end.