Программа "Часы"

library ieee;
use ieee.std_logic_1164.all;
use ieee.std_logic_unsigned.all;
 
entity Segm7 is 
 port(x : in std_logic_vector(3 downto 0);  -- на вход подается числа от 0 до 9, по этому 4 разряда
     y : out std_logic_vector(6 downto 0)); -- на выход 7 разрядов, точку в расчет не берем
end Segm7;
      
architecture A_Segm7 of Segm7 is
begin
  process(x) -- у нас всего один процесс, который запускается просто при изменении входного сигнала, никаких сигналов синхронизации не требуется
    begin
      case(x) is -- в зависимости от входной комбинации, выдаем комбинацию на выход, у меня 0-горит, а 1-не горит 
       when x"0" => Y <= "1000000";
       when x"1" => Y <= "1111001";
       when x"2" => Y <= "0100100";
       when x"3" => Y <= "0110000";
       when x"4" => Y <= "0011001";
       when x"5" => Y <= "0010010";
       when x"6" => Y <= "0000010";
       when x"7" => Y <= "1111000";
       when x"8" => Y <= "0000000";
       when x"9" => Y <= "0010000";
       when others => Y <="1111111"; -- во всех остальных случаях у меня ничего не горит
      end case;
    end process;
end A_Segm7;