Pascal/Turbo Pascal - Error!!!!!!!

Vamos a ver este es mi programa principal:
begin
clrscr;
activar(f1,f2); {con tiene esto}
{$I-}
reset(f1);
reset(f2);
{$I+}
if IOResult <> 0 then
begin
rewrite(f1);
rewrite(f2);
end;

No se como pero escribiendo el mensaje anterior se envio el solo y por eso es incomprensible.Bueno lo que queria decir era q tengo el siguiente programa principal:
begin
repeat
clrscr;
activar(f1,f2); {contiene esto}
{$I-}
reset(f1);
reset(f2);
{$I+}
if IOResult <> 0 then
begin
rewrite(f1);
rewrite(f2);
end; {fin del procedimiento activar}
menu1;
until opt1= 3;
end.
Vale tengo un menu2 q es llamado por menu1. Y menu2 llama a 5 procedimientos mas con esta cabecera(procedure nombre(fich:fichero);) hasta que opt2= 6. Compilo y me salen como 10 errores de este tipo "file types must be var parameters". Cuando llamo al procedure mostrar("procedure mostrar(fich:fichero);) lo hago asi mostrar(f1); y f1 es una var global de tipo fichero. No se si me has entendido me da q no jejeje, si no aqui esta la practica para q t hagas una idea:
http://www.csi.ull.es/~mtp1/practicas/ficheros01.rtf.
Un saludo.

Ya encontre el error chorrada por supuesto, lo siento. Aunq ahora me un exitcode= 102, q no se lo q es pero voy a ver.
Siento las molestias
Un saludo.

La variables de tipo file, file of... y text deben pasarse por referencia en los parámetros de un procedimiento o función
var
F:File of byte;
...
procedure Abrir(var F: File of byte; Nombre:String);
...