Warnings VHDL

Hi!!!!

Can you help me? I do not understand because they give me these mistakes. That happens??

It is a door of a bank detector of metals.

I´m spanish girl, I sit(feel) my bad way of expressing

Sorry!!

Kiss

library ieee;

use ieee.std_logic_1164.all;

entity puerta is

port(clk, reset: in std_logic;

presencia, metal, abrir: in std_logic;

entrada, salida, led: out std_logic);

end puerta;

architecture uno of puerta is

type estado is(abriendo, cerrando, abierto, cerrado, metal_ON);

signal actual, siguiente: estado;

begin

process(clk,reset)

begin

if reset= '0' then

actual <= abierto;

elsif clk'event and clk = '1' then

actual <= siguiente;

end if;

end process;

process (actual, presencia, metal, abrir)

begin

siguiente <= actual;

case actual is

when abierto =>

entrada <= '1';

salida <= '0';

led <= '0';

if presencia = '1' then

siguiente <= cerrando;

else

siguiente <= abierto;

end if;

when cerrando =>

entrada <= '0';

if metal = '1' then

siguiente <=metal_ON;

else

siguiente <= abriendo;

end if;

when metal_ON =>

led <= '1';

if abrir = '1' then

siguiente<=abriendo;

else

entrada <='1';

siguiente <= abierto;

end if;

when abriendo =>

led <= '0';

salida <= '1';

if presencia = '1' then

siguiente <= abriendo;

else

siguiente <= cerrado;

end if;

when cerrado =>

salida <= '0';

entrada <= '1';

siguiente <= abierto;

end case;

end process;

end uno;

library ieee;

use ieee.std_logic_1164.all;

entity temporizador is

port(clk, reset: in std_logic;

duracion: in std_logic_vector(15 downto 0);

carga_apertura, carga_cierre: in std_logic);

end temporizador;

architecture dos of temporizador is

type estado is(abriendo, cerrando, abierto, cerrado, metal_ON);

signal actual, siguiente: estado;

begin

process(clk,reset)

begin

if reset= '0' then

siguiente <= abierto;

elsif clk'event and clk = '1' then

if duracion = "0000000000000000" then

actual <= abierto;

elsif duracion = "0110000110101000" then

if carga_cierre ='1' then

actual <= cerrando;

end if;

elsif duracion = "0011101010011000" then

if carga_apertura ='1' then

actual <= abriendo;

end if;

elsif duracion = "0010011100010000" then

if carga_apertura ='1' then

actual <= abriendo;

end if;

else

actual <= abierto;

end if;

end if;

end process;

end dos;