return ujelem;
}

char *szovegdupl(char s[]) /* karaktersorozat duplazasa */
{
char *p;

p = (char *) malloc(strlen(s) + 1);
if (p != NULL)
strcpy(p, s);
return p;
}

void beilleszt(unsigned int jegy, char *neptun) /* uj elem a multilistaba */
{
elem *ujelem, *p = fej1;

if (fej1 == NULL) { /* ha ures a multilistank */
fej1 = fej2 = foglal_elem(jegy, szovegdupl(neptun));
return;
}

ujelem = foglal_elem(jegy, szovegdupl(neptun));
/* megkeressuk a helyet az elso listaban */

if (kissebb(fej1->neptun, neptun)) {
while (p->kov1 && kissebb(p->kov1->neptun, neptun))
p = p->kov1;

ujelem->kov1 = p->kov1;
p->kov1 = ujelem;
}
else {
ujelem->kov1 = fej1;
fej1 = ujelem;
}

/* hozzafuzzuk a masodik listahoz */
p = fej2;
while (p->kov2)
p = p->kov2;
p->kov2 = ujelem;

return;
}

elem *lista_torol(elem *p) /* a mutilista felszabaditasa */
{
elem *tmp;

while (p) {
tmp = p->kov1;
free(p);
p = tmp;
}

return NULL;
}

main() {

elem *akt;

char neptun[SORHOSSZ]; /* az aktualis sornak */
unsigned int jegy; /* az aktualis erdemjegynek */

while (scanf(„%u,%s”, &jegy, neptun) != EOF) /* adatok bekerese */
beilleszt(jegy, neptun); /* lancolas */

akt = fej1; /* az elso lista kiirasa */
while (akt != NULL) {
printf(„%u %sn”, akt->jegy, akt-> neptun);
akt = akt->kov1;
}
printf(„—n”);
akt = fej2; /* a masodik lista kiirasa */
while (akt != NULL) {
printf(„%u %sn”, akt->jegy, akt-> neptun);
akt = akt->kov2;
}

lista_torol(fej1); /* a mulitilista torlese */

system(„PAUSE”);
return 0;
}