Pascal/Turbo Pascal - EN UN ARCHIVO SECUENCIAL

En un Menu, dentro de un archivo secuencial, ¿se pueden activar o desactivar las opciones si el archivo esta vacío? ¿como se puede hacer?


ejemplo de Menu:


WriteLn;
GotoXY(20,5); WriteLn('1 - Incluir');
GotoXY(20,7); WriteLn('2 - Consultar');
GotoXY(20,9); WriteLn('3 - Modificar');
GotoXY(20,11); WriteLn('4 - Eliminar');
GotoXY(20,13); WriteLn('5 - Listar');
GotoXY(20,15); WriteLn('6 - Reporte');
GotoXY(20,17); WriteLn('0 - Salir');
WriteLn;
Repeat
Opcion:=ReadKey;

Until (Opcion >= '0') And (Opcion <= '6');
Case Opcion of
'1': Incluir(Arch);
'2': Consult(Arch);
'3': Modif(Arch);
'4': Eliminar(Arch);
'5': Listar(Arch);
'6': Reporte(Arch);
End;
Until Opcion = '0';

End.

A ver no entiendo bien tu pregunta pero es pondré lo que creo que pides si no es así dímelo.

Para leer un archivo y tomar la decisión oportuna se debe de realizar esto:

assign(archi,nombre); {abrimos el archivo y comprobamos si existe sino existe paso 1 si existe paso 2}
{$I-} reset(archi); {$I+}
if ioresult <> 0 then
begin
(1)
end
else
begin

(2)
if filesize(archi) = 0 then
{archivo vació salimos y cerramos close(archi)}
else
begin
{tiene datos realizamos lo que sea y cerramos close(archi)}
end;
end;

No amigo, no me expliqué... básicamente es indicarle al programa que si filesize = 0 no active las opciones del 1 al 6, sino solo la 1 que es incluir...

Case Opcion of
'1': Incluir(Arch);
'2': Consult(Arch);
'3': Modif(Arch);
'4': Eliminar(Arch);
'5': Listar(Arch);
'6': Reporte(Arch);

E saz to eso es lo que hace ese párrafo verificar si tiene datos o esta vació donde tu lo pongas es cosa tulla pero esa es la forma ejemplo:

procedure incluir(archi : loquesea);
begin
assign(archi,nombre cual sea);
{$I-} reset(archi) {$I+}
if ioresult <> 0 then el archivo no existe
begin
exit;
end
else
begin
if filesize = 0 then
exit salimos sin acer nada
else
begin
se ejecuta el proceso que se desea
end;
end;
end;

Esto es lo que te presente ponlo donde lo necesites.