Pascal/Turbo Pascal - Como hacer para qeu no avance hasta que exista...

Hola,tengo un problema,necesito trabajar con un fichero de texto pero quier oque al introducir la dirección del archivo, si este no existe me devuelva un mensaje de error y no permita continuar hasta que no se meta una direccion correcta.
Como podria hacerlo? creo que es con algo de IORESULT pero no tengo ni idea de como.
Si podeis ayudarme... gracias y un saludo

este es mi codigo, arch es un text y dir un string.

Write('Introducir Direccion: ');
read(dir);
assign(arch,dir);
{$I-}

var Arch:TMiTipoArchivo;
Existe:boolean;
Ruta:string;

begin
repeat
Write('Archivo: ');
ReadLn(Ruta);
Assign(Arch,Ruta);Reset(Arch);
Existe:=IOResult=0;
if not Existe then Writeln('El archivo no existe.');
until Existe;

Hacemos las demás cosas.

end.

Falta deshabilitar el control de errores.

begin
repeat
Write('Archivo: ');
ReadLn(Ruta);
Assign(Arch,Ruta);
{$I-}
Reset(Arch);
{$I+}
Existe:=IOResult=0;
if not Existe then Writeln('El archivo no existe.');
until Existe;

MUCHAS GRACIAS... AHORA ME HA SURGIDO OTRA DUDA, LA PONGO EN UN NUEVO POST