Pascal-String einlesen

#include<stdio.h>

char **einlesen(const char *filename, unsigned long *a)
{
	FILE *dat:
	char **ret;
	unsigned long b, i;
	char e = 0;

	dat = fopen(filename, "rb");
	if(dat == NULL) return NULL;

	*a = 0;
	if(4 != fread((void *)a, 4, 1, dat)) e = 1;
	if(NULL == (ret = (char **)malloc(sizeof(char *) * (*a)))) e = 1;
	if(e)
	{
		fclose(dat);
		return NULL;
	}

	for(i = 0; i < *a; i++)
	{
		b = 0;
		ret[i] = NULL;
		if(4 != fread((void *)(&b), 4, 1, dat)) e = 1;
		if(NULL == (ret[i] = (char *)malloc(b + 1))) e = 1;
		if(ret[i])
		{
			if(b != fread((void *)(ret[i]), b, 1, dat)) e = 1;
			ret[i][b] = '\0';
		}
		if(e)
		{
			if(ret[i]) i++;
			for(--i; i >= 0; i--) free(ret[i]);
			free(ret);
			fclose(dat);
			return NULL;
		}
	}

	fclose(dat);
	return s;
}

void freigeben(char **s, unsigned long a)
{
	for(--a; a >= 0; a--) free(s[a]);
	free(s);
}

...

char **s;
unsigned long count;
s = einlesen("datei.bin", &count);
if(!s) printf("Fehler\n");
else
{
	//s[...] sind Strings, insgesamt count Stück
}
...

freigeben(s, count);
s = NULL;