Pascal/Turbo Pascal - Correccion de mi codigo :-( error fatal.. ayuda

Buenas noches,

Agradecería su valiosa ayuda,

Realizo un programa para eliminar empleados y ordenarlos por número de empleado.

Tengo mi procedimiento de eliminar y ordenar, (Uso archivos), pero tengo un problema, yo elimino el registro correctamente, eso creo, ya que al consultar no muestra el registro eliminado, pero al ordenar por numero de empleado sigue apareciendo. Como puedo hacer para que se actualice al ordenar? O es que tengo un error al eliminar mi registro? Agradecería mucho su ayuda. Estos son mis procedimientos.

procedure Eliminar (num:string); //Aqui es donde elimino al empleado
Var
ar : longint;
begin
assign (f, archi);
{$I-}rESET(f);{$I+}
if ioresult<>0 then
begin
writeln(' Error’);
readkey;
end
else
begin
for arch := 0 to filesize(f) - 1 do
begin
seek(f,ar);
read(f,Datos);
if Datos.num<> num then
begin
end
else
begin
Datos.activo := false;
seek(f,ar);
write(f,Datos);
writeln ('Empleado eliminado’);
end
else
end;
close(f);
end;
end;


procedure NumOrdenado; //Aquí es donde ordeno
var
E1, A : RegistroE;
ar, ar2 : longint;
begin
assign (f, archi);
{$I-}rESET(f);{$I+}
if ioresult<>0 then
begin
writeln(' Error’);
readln;
exit;
end
else
begin
for ar := 0 to filesize(f) - 1 do
for ar2 := filesize(f) - 1 downto ar + 1 do
begin
seek(f,ar);
read(f,Datos);
seek(f,ar2);
read(f,E1);
if Datos.num> E1.num then
begin
A := Datos;
Datos := E1;
E1 := A;
seek(f,ar);
write(f,Datos);
seek(f,ar2);
write(f,E1);
end;
end;
end;
close(f);
end;


procedure MostrarPacientesArchivo; // y aquí es donde maestro los empleados ordenados
var
z: longint;
begin
assign(f,archi);
{$I-} reset(f); {$I+}
if ioresult <> 0 then
begin
writeln;
writeln(' Error’);
readln;
exit;
end
else
begin
for z := 0 to filesize(f) - 1 do
begin seek(f,z);
read(f,Datos);
writeln(Datos.Nom,' ',Datos.num);
end;
close(f);
writeln;
writeln(' Pulse Enter');
readln;
end;
end;

Es por eso? Estoy estudiando full pascal pero tiene muchis detalles. Voy a probarlo
De verdad muchas gracias por responder. Ya me estaba quedando sin cabello viendo q le pasaba al codigo. Jajaja te aviso

Funciono!! que bien, muchas gracias de verdad . Los adoro. quiero un dia saber tanto como ustedes. mil gracias..

hola disculpa ese programa por casualidad no es de una clinica la mejor.. a mi me hace falta la parte de ordenación y reporte... me gustaría que ayudaran soy estudiante de ing industrial y no se mucho de programacion.. este es el enunciado del trabajo..

La Clínica “La Mejor”, requiere un sistema automatizado para registrar a los
pacientes que son atendidos, de tal modo, que se puedan obtener datos
específicos tales como: las estadísticas en atención a menores de edad,
adultos mayores, tanto femenino como masculino, los ingresos recaudados
mensualmente según los tipos de patologías atendidas, entre otros. Es
importante destacar, que se han clasificado estas patologías en tres categorías:
las tipo A, las B y las tipo C; y se deberán tomar en cuenta las siguientes
especificaciones, al momento de ser atendidas en la Clínica:
· Los pacientes deberán cancelar Bs. 500 por ingreso a la clínica.
· Deberán pagar diariamente Bs. 550 si son atendidos por patologías
tipo A.
· Bs. 430 si se trata de las tipo B.
· Bs. 620 si es por las tipo C.
Dicho Sistema Automatizado, debe cumplir con las siguientes pautas:
· Presentar un menú de mantenimiento con las opciones siguientes:

Incluir

Consultar

Modificar

Eliminar

Reporte

Salida
Debe registrar, con la opción Incluir, los siguientes datos:

Cédula de Identidad.

Apellidos y Nombres.

Edad.

Sexo.

Días de hospitalización.

Tipo de patologías (A/B/C).
· Debe ordenar el registro de pacientes por el número de la cédula de
identidad.
· Mostrar por pantalla, cuando se consulte a un paciente por su número de
cédula de identidad, toda la información referente al mismo.
· Mostrar por pantalla, en la opción Modificar y en la opción Eliminar, un
mensaje de confirmación, donde el usuario ratifica la acción de modificar
o eliminar datos en el sistema.
· Las opciones Consultar, Modificar y Eliminar, harán uso de los mismos
datos registrados en la opción Incluir.
· La opción Reporte, debe generar un listado impreso que presente la
siguiente información:
 Ingresos recaudados por patologías tipo A.
 Ingresos recaudados por patologías tipo B.
 Ingresos recaudados por patologías tipo C.
 Número de pacientes atendidos menores de 18 años.
 Número de pacientes atendidos mayores de 65 años sexo femenino.
 Número de pacientes atendidos mayores de 65 años sexo masculino.