---------------------------------------------- Zapisanie do pliku
    zapisanie :process (clk,przycisk)

        file plik_WY: text open write_mode is out "KARTA.txt";
        variable linia_wy: line;

    begin
        if (zapis = True) then
            write(linia_wy,czas_out);
            writeline(plik_wy,linia_wy);
            file_close(plik_WY);
            zapis := False;
        end if;
    end process zapisanie;