Beschreibung für eine Program

hallo leute
ich bin ganz neue hier und ich finde diese Foren sehr interessant
ich arbeite mit quartus 2 und ich habe schon die 7 segment programmiert.
aber ich muss ein Bericht schreiben leider das ist mein erste programm 
und ich weiss nicht wie und was soll ich schreiben
ich bitte um eure Hilfe
hier ist den Programm mit case und ander genauso mit With select

 entity segment7 is
port (
reset : in std_logic;
switch : in std_logic;
seg7_k : out std_logic_vector(6 downto 0)
);
end segment7;

architecture behavioral of segment7 is
signal counter4 : std_logic_vector(3 downto 0);
signal reg_seg7 : std_logic_vector(6 downto 0);
begin

process (reset, switch) begin
if (reset = '1') then
counter4 <= "0000";
elsif (switch'event and switch = '1') then
counter4 <= counter4 + 1;
end if;
end process;

process (counter4) begin
case counter4 is
when "0000" => reg_seg7 <= "0111111";
when "0001" => reg_seg7 <= "0000110";
when "0010" => reg_seg7 <= "1011011";
when "0011" => reg_seg7 <= "1001111";
when "0100" => reg_seg7 <= "1100110";
when "0101" => reg_seg7 <= "1101101";
when "0110" => reg_seg7 <= "1111101";
when "0111" => reg_seg7 <= "0000111";
when "1000" => reg_seg7 <= "1111111";
when "1001" => reg_seg7 <= "1101111";
when "1010" => reg_seg7 <= "1110111";
when "1011" => reg_seg7 <= "1111100";
when "1100" => reg_seg7 <= "0111001";
when "1101" => reg_seg7 <= "1011110";
when "1110" => reg_seg7 <= "1111001";
when "1111" => reg_seg7 <= "1110001";
when others => reg_seg7 <= "XXXXXXX";
end case;
end process;

seg7_k <= not reg_seg7;


end behavioral;