long brzap(FILE *dat)
{
	long br=0;
	struct
	{
		int mat_br;
		char prim[40+1];
	} zapis;
	while (fread(&zapis, sizeof(zapis), 1, dat)==1)
		if (zapis.mat_br==0) ++br;
	return br;
	fcloseall();
}