Pascal/Turbo Pascal - sistema multiusuario usando file of record

el programa esta en el zip. si lo pueden abrir y por favor explicarme como funciona la logica de los procedimientos.Para entender como puedo hacer para pasarlo a sistema multiusuarios. por que como està, es para sistema monousuarios..... desde ya muchas gracias.

• Inmo2.zip(2,5 KB)

El problema será el acceso de más de un usuario a la vez al archivo donde se guardan los datos. Si un usuario quiere abrir el archivo y ya está abierto por otro devolverá un error. Lo que hay que hacer es capturar ese error e intertarlo un rato después, hasta que el otro usuario cierre el archivo.