Erros muito estranhos... Linguagem C e arquivos

/*

   Programa de manipulação de arquivo
   Ronaldo Rodrigues Godoi
   
*/

#include <stdio.h>
#include <stdlib.h>
#include <string.h>

#define NUM_LISTA 4

void limpa(FILE *fp) {
	int c;
	while((c=fgetc(fp)) != EOF && c != '\n') ;	
}

struct registro {
	char nome[81];
	int idade;
	double peso;
	double altura;
	double imc;
};

struct registro pessoas[NUM_LISTA];

void ordena_nome() {
	
	char aux_nome[81];
	int aux_idade = 0;
	double aux_peso = 0;
	double aux_altura = 0;
	double aux_imc = 0;
	
	for(int i = 0; i < NUM_LISTA; i++) {
		printf("\n\nNome: %s\n i: %d", pessoas[i].nome, i);
	}
	
	scanf("%d", &aux_idade);
	
	for(int i = 0; i < NUM_LISTA; i++) {
		for(int j = i + 1; j < NUM_LISTA; j++) {
			int r = strcmp(pessoas[i].nome, pessoas[j].nome);
			
			printf("\n\nAAAA Nomes: \n %-80s\n %-80s\n %d %d", pessoas[i].nome, pessoas[j].nome, i, j);
			
			if(r > 0) {
				
				printf("\n\nNome: %-80s\nIMC: %.3f", pessoas[i].nome, pessoas[i].imc);
				
				strcpy(aux_nome, pessoas[i].nome);
				strcpy(pessoas[i].nome, pessoas[j].nome);
				strcpy(pessoas[j].nome, aux_nome);
				
				aux_idade = pessoas[i].idade;
				pessoas[i].idade = pessoas[j].idade;
				pessoas[j].idade = aux_idade;
				
				aux_peso = pessoas[i].peso;
				pessoas[i].peso = pessoas[j].peso;
				pessoas[j].peso = aux_peso;
				
				aux_altura = pessoas[i].altura;
				pessoas[i].altura = pessoas[j].altura;
				pessoas[j].altura = aux_altura;
				
				aux_imc = pessoas[i].imc;
				pessoas[i].imc = pessoas[j].imc;
				pessoas[j].imc = aux_imc;
			}
		}
	}
}

main() {
	
	printf("\n\nCalculo do IMC");
	char entrada;
	do {
		printf("\n\nFaz entrada de dados? (S/N)");
		scanf("%c", &entrada);
	} while(entrada != 'S' && entrada != 's' && entrada != 'N' && entrada != 'n');
	
	if(entrada == 's' || entrada == 'S') {
		printf("Dados para o arquivo: \n");
		for(int i = 0; i < NUM_LISTA; i++) {
			limpa(stdin);
			printf("\n\n Nome: ");
			scanf("%80[^\n]", pessoas[i].nome);
			limpa(stdin);
			printf("\n Idade: ");
			scanf("%d", &pessoas[i].idade);
			limpa(stdin);
			printf("\n Peso: ");
			scanf("%lf", &pessoas[i].peso);
			limpa(stdin);
			printf("\n Altura: ");
			scanf("%lf", &pessoas[i].altura);
		}
	}
	
	FILE *ponteiro;
	ponteiro = fopen("imc.txt", "a");
	if(!ponteiro) {
		printf("\nErro ao abrir arquivo!\n");
		fclose(ponteiro);
		exit(0);
	}
	else
		printf("\nArquivo aberto com sucesso\n");
		
	if(entrada == 's' || entrada == 'S') {
		for(int i = 0; i < NUM_LISTA; i++) {
			fprintf(ponteiro, "%s\n%d %.3f %.3f\n", pessoas[i].nome, pessoas[i].idade, pessoas[i].peso, pessoas[i].altura);
		}
	}
	
	int registrosLidos = 0;
	char buffer[81];
	fclose(ponteiro);
	ponteiro = fopen("imc.txt", "r");
	if(!ponteiro) {
		printf("\nErro ao abrir arquivo!\n");
		fclose(ponteiro);
		exit(0);
	}
	else
		printf("\nArquivo aberto com sucesso, segunda vez.\n");
	
	while (1) {
		
		if(! fgets(buffer, 80, ponteiro)) {
			printf("\n\nNão consegui ler o nome...2");
			break;
		}
		
		buffer[strcspn(buffer, "\n")] = '\0';
		strcpy(pessoas[registrosLidos].nome,buffer);
		
		if(! fgets(buffer, 80, ponteiro)) {
			printf("\n\nNão consegui ler os numeros...3");
			break;
		}
		
		if(sscanf(buffer, "%d %lf %lf", &pessoas[registrosLidos].idade,
									 	&pessoas[registrosLidos].peso,
									 	&pessoas[registrosLidos].altura) !=3) {
	 		break;
											 }
											 
		pessoas[registrosLidos].imc = pessoas[registrosLidos].peso / (pessoas[registrosLidos].altura * pessoas[registrosLidos].altura);
		
		printf("\n\nNome: %-80s\nIdade: %d\nPeso: %.3f\nAltura: %.3f\n\nIMC: %.3f\n", 
		pessoas[registrosLidos].nome,
		pessoas[registrosLidos].idade,
		pessoas[registrosLidos].peso,
		pessoas[registrosLidos].altura,
		pessoas[registrosLidos].imc);
		
	}
	
	ordena_nome();
	
	FILE *ponteiro2;
	ponteiro2 = fopen("imc2.txt", "w");
	if(!ponteiro2) {
		printf("\nErro ao abrir/criar segundo arquivo!\n");
		fclose(ponteiro);
		exit(0);
	}
	else
		printf("\nSegundo Arquivo aberto/criado com sucesso\n");
	for(int i = 0; i < NUM_LISTA; i++) {
		fprintf(ponteiro2, "Nome: %s\nIMC: %.3f\n", pessoas[i].nome, pessoas[i].imc);		
	}
	
	fclose(ponteiro);
	fclose(ponteiro2);
	return(0);
	
}