ADA - Ficheros

Hola!

Mi duda es bien sencilla: estoy haciedo un programa que necesita leer un fichero. Imaginemos que el fichero no existe; en ese caso se abre un fichero por defecto que sabemos que seguro que si que existe. Mi pregunta es: ¿como puedo saber si el fichero primero existe o no, ya que al hacer un open y no existir, salta una excepcion?

Muchas gracias.

Procedure main is
....
....
Existe : boolean;
Begin
Existe : True;
Begin
Open( F , in_file , "Archivo.dat");
Exception
When Others =>
Existe := False;
End;
If No Existe then
.... lo que quieras hacer sino existe el archivo
else
... lo que quieras hacer si el archivo existe.
Close (F);
end if;
End main;