Pascal/Turbo Pascal - Necesito un procedimiento que me compruebe si exis

Necesito un procedimeinto que compruebe si exinste varios fichero sfundamentales de mi programa, y se que hay que usar la funcion Ioresult, pero mi duda es que, no voy a ir asignado los 5 ficheros e ir comprovando uno a uno si existen, xq es muy tedioso, como lo podria hacer?

Nota: no puedo crear ningun fichero de texto

Bueno. Podrías hacer una función (creo que está en la ayuda) que verifique si existe...

function Existe(const Archivo:string):boolean;
var a:file;
begin
assign(a,Archivo);
{$I-}
reset(a);
{$I+}
if IOResult=0 then
begin
close(a);
Existe:=true;
end
else
Existe:=false;
end;

...y podrías llamar a la función 5 veces...

if not ( Existe('Archivo1') and Existe('Archivo2')...) then Halt;