Pascal/Turbo Pascal - programa sobre reporte

buenos dias necesito la ayuda sobre un programa que estoy realizando sobre el registro de un estudiante donde se incluye,modififca,consulta,elimina y reporta..todo eso lo hace pero en la parte de reporte no me refleja mas deun dato sino uno solo no me hace un conteo..adjunto la programacion que tengo del problema...si alguien me puede ayudar..gracias..
este es mi correo [email protected]

Procedure Reporte;
var
busca : regi_estudiantes;

begin
M:=0; F:=0; MayEdad:=0;
Caracas:=0; Barquisimeto:=0;
Merida:=0; Zulia:=0; Nueva_Esparta:=0;
Falcon:=0;
reset(estud);
while not eof(estud) do
begin
read(estud,busca);
if ((busca.sexo_estud = 'M')or(busca.sexo_estud = 'm')) then
begin
M:=M+1;
End;
if ((busca.sexo_estud = 'F')or(busca.sexo_estud = 'f')) then
begin
F:=F+1;
End;
End;
if (busca.edad_estud >= 30) then
begin
MayEdad:=MayEdad+1;
End;
if ((busca.centro_estudio = 'Caracas')or(busca.centro_estudio = 'caracas')) then
begin
Caracas:=Caracas+1;
End;
if ((busca.centro_estudio = 'Barquisimeto')or(busca.centro_estudio = 'barquisimeto'))then
begin
Barquisimeto:=Barquisimeto+1;
End;
if ((busca.centro_estudio = 'Merida')or(busca.centro_estudio = 'merida')) then
begin
Merida:=Merida+1;
End;
if ((busca.centro_estudio = 'Zulia')or(busca.centro_estudio = 'zulia')) then
begin
Zulia:=Zulia+1;
End;
if ((busca.centro_estudio = 'Nueva Esparta')or(busca.centro_estudio = 'nueva esparta')) then
begin
Nueva_Esparta:=Nueva_Esparta+1;
End;
if ((busca.centro_estudio = 'Falcon')or(busca.centro_estudio = 'falcon')) then
begin
Falcon:=Falcon+1;
End;

close(estud);estud_repor;
end;

mucha gracias por la ayuda...ya lo probe y funciona... otra cosa me falta que Ordene el registro estudiante por el número de la cédula. si me pueden ayudar

La ordenacion es de mayor a menor.

gracias por la informacion