Шейкерная сортировка.

program Shaker;
 uses crt;
 var A:array[1..100] of integer;
  N,i,k,x,j,d : integer;
  begin clrscr;
   write('Введите размер массива* ');
    read(N);
     for i:=1 to n do read(A[i]);
      d:=1; i:=0;
       for k:=n-1 downto 1 do 
         begin
             i:=i+d;
                 for j:=1 to k do
                     begin
                           if (A[i]-A[i+d])*d<0 then
                                        begin x:=A[i]; A[i]:=A[i+d]; A[i+d]:=x; end;
                                              i:=i+d;
                                                  end;
                                                    d:=-d;
                                                      end;
                                                      readln;
                                                      writeln('Otsortirovanni massiv:');
                                                       for i:=1 to n do write(A[i],' '); 
                                                       readln;
                                                       end.

if (A[i]-A[i+d])*d<0

if (A[i]-A[i+d])*d<0 and ((a[i] mod 2) = 1)

    
 
if ((A[i]-A[i+d])*d<0) and ((a[i] mod 2) = 1)