Найти буквы

[KapaJui]

Необходимо в алфавитном порядке выписать:
Все согласные буквы, которые входят только в одно слово;
Все гласные буквы, которые входят в каждое слово.
Помогите пожалуйста найти ошибки

#include<iostream>
using namespace std;

int main() {
	setlocale(LC_ALL, "Russian");
	system("chcp 1251 & cls");
	int i = 0, r = 0, p, k, j, n,b,c=0;
	const int N = 256;
	const char* del = " ,";
	char text[N];
	char sogl[] = { 'б', 'в', 'г', 'д', 'ж', 'з', 'й', 'к', 'л', 'м', 'н', 'п', 'р', 'с', 'т', 'ф', 'х', 'ц', 'ч', 'ш', 'щ' }, glasn[] = { 'а', 'е', 'ё', 'и', 'о', 'у', 'ы', 'э', 'ю', 'я' };
	char count[100], soglasn[22], glasni[11], count2[100];
	char* ptr[10], * next = 0;
	cout << "Введите текст: ";
	cin >> text;
	ptr[i] = strtok_s(text, del, &next);
	i++;
	while (ptr[i - 1] != NULL) {
		ptr[i] = strtok_s(0, del, &next);
		i++;
	}
	for (j = 0; j < i - 1; j++) 
		for (n = 0; n < 21; n++) {
			p = 0;
			for (k = 0; *(ptr[j] + k) != '\0'; k++) {
				if (count[r] == *(ptr[j] + k)) {
					p = 1;
				}
				if (p == 0) {
					if (*(ptr[j] + k) == sogl[n]) {
						count[r] = sogl[n];
						r++;
					}
				}
			}
		}
	for (j = 0; j < i - 1; j++)
		for (b = 0; b < 10; b++) {
			p = 0;
			for (k = 0; *(ptr[j] + k) != '\0'; k++) {
				if (*(ptr[j] + k) == glasn[b]) {
					count2[c] = glasn[b];
					c++;
				}
			}
		}
		count[r] = '\0';
		count2[c] = '\0';
		cout << "\n";
		r = 0;
		for (i = 0; i < 21; i++) {
			p = 0;
			for (j = 0; count[j] != 0; j++)
			{
				if (sogl[i] == count[j])
					p = 1;
			}


			if (p == 1)
			{
				soglasn[r] = sogl[i];
				r++;
			}
		}
		for (i = 0; i < 10; i++) {
			p = 0;
			for (j = 0; count2[j] != 0; j++)
			{
				if (glasn[i] == count2[j])
					p = 1;
			}


			if (p == 1)
			{
				glasni[c] = glasn[i];
				c++;
			}
		}
		soglasn[r] = '\0';
		glasni[c] = '\0';
		cout << soglasn << "\n";
		cout << endl;
		cout << glasni << "\n";
	
}