process(iW, sStanje) begin
    case sStanje is
        when S0 =>
            case iW is
                when "00" => sSledece_Stanje <= S2; sZ <= '0';
                when "01" => sSledece_Stanje <= S1; sZ <= '0';
                when "10" => sSledece_Stanje <= S2; sZ <= '1';
                when others => sSledece_Stanje <= S1; sZ <= '0';
            end case;

        when S1 =>
            case iW is
                when "00" => sSledece_Stanje <= S2; sZ <= '0';
                when "01" => sSledece_Stanje <= S0; sZ <= '1';
                when "10" => sSledece_Stanje <= S1; sZ <= '0';
                when others => sSledece_Stanje <= S1; sZ <= '0';
            end case;

        when S2 =>
            case iW is
                when "00" => sSledece_Stanje <= S0; sZ <= '0';
                when "01" => sSledece_Stanje <= S0; sZ <= '1';
                when "10" => sSledece_Stanje <= S1; sZ <= '1';
                when others => sSledece_Stanje <= S1; sZ <= '0';
            end case;

        end case;
    end process;

process(iCLK) begin
    if (iRESET = '1') then
        sStanje <= S1;
        oZ <= '0';
    elsif (iCLK'event and iCLK = '1') then
        sStanje <= sSledece_Stanje;
        oZ <= sZ;
    end if;
end process;