Hey, I'm making a binary ordering. I have two questions: 1. Is there any 
way that I can make this code simpler? 2. Can I make this code 
concurrent or sequential using the functions I already write on top?

Thanks,
;D


------------------------------------------------------------------------ 
----------
package MY_PACKAGE is
   function portaand(SIGNAL A , B: in bit) return bit;
   function portaor(SIGNAL A , B: in bit) return bit;
END MY_PACKAGE;
---------------------------------------------------------------------
PACKAGE BODY MY_PACKAGE is
  FUNCTION portaand (SIGNAL A, B: bit )
  RETURN bit IS
  BEGIN
    RETURN A AND B;
  END portaand;

  FUNCTION portaor (SIGNAL A, B: bit )
  RETURN bit IS
  BEGIN
    RETURN A OR B;
  END portaor;

END MY_PACKAGE;
--------------------------------------------------------------------
use work.MY_PACKAGE.all;
--------------------------------------------------------------------

entity ORDENADORBINARIO is
  PORT ( n4, n3,n2,n1,n0 : IN bit;
       y4,y3,y2,y1,y0 : OUT bit );
end ORDENADORBINARIO;

architecture Behavioral of ORDENADORBINARIO is
  SIGNAL x0,x1,x2,x3,z0,z1,z2,w0,w1,w2,o0,o1,p0,p1,q0 : bit;
begin
  x0 <= portaand( n4 , n3 );
  z0 <= portaor( n4 , n3 );
  x1 <= portaand( n2 , z0 );
  z1 <= portaor( n2 , z0 );
  x2 <= portaand( n1 , z1 );
  z2 <= portaor( n1 , z1 );
  x3 <= portaand ( z2, n0);
  w0 <= portaand ( x0, x1) ;
  o0 <= portaor ( x0, x1) ;
  w1 <= portaand ( o0, x2) ;
  o1 <= portaor ( o0, x2) ;
  w2 <= portaand ( o1 , x3) ;
  p0 <= portaand (w0 , w1) ;
  q0 <= portaor( w0,w1);
  p1 <= portaand ( w2 , q0);




  y4 <= portaor (n0, z2);
  y3 <= portaor (o1, x3) ;
  y2 <= portaor ( w2, q0);
  y1 <= portaand (p0 , p1 );
  y0 <= portaor (p0 , p1);





end Behavioral;