void searchToken(FILE *f, char *s, char *b) { // функция ищет лексемы методом границы
	char c, c_ = ' ';
	int first = 1;
	while (!feof(f)) {
		c = fgetc(f);
		if (isalnum(c))
		if (first)
			*s++ = c;
		else
			*b++ = c;
		else if (isalnum(c_)) {
			if (first)
				*s = 0, first = 0;
			else {
				*b = 0;
				break;
			};
		};
		c_ = c;
	};
}