Pascal/Turbo Pascal - error 103 File Not Open

holas racias a ustedes x fin pude terminar mi programa y solia funcionar perfectamente, pero despues de unas pequeñas modificaciones me comenzo a dar error 103 File Not Open aca les muestro mi assignacion la verdad no se q paso ya prove viendo el archivo q se crea q no este como solo lectura pero me sigue dando el mismo error cuando quiero crear un nuevo arcivo de expediente en el programa.
procedure inicio;
var
est:integer;
begin
clrscr;
assign (Arc_exp,'c:\pascal\expedie.dat');
{$i-}
reset(arc_exp);
est:=ioresult;
{$i+}
if est<>0
then
rewrite(arc_exp);
end;

Hola DIEGO.
Lo mejor sería que mandaras todo el código pues no se sabe si creaste una varible que hace referencia a tu archivo.

Yo probé tu procedimiento y por supuesto declaré una variable para el archivo y así si funciona.

program prueba;
uses crt;
var Arc_exp : file of integer;

procedure inicio;
var
est:integer;
begin
clrscr;
assign (Arc_exp,'c:\pascal\expedie.dat');
{$i-}
reset(arc_exp);
est:=ioresult;
{$i+}
if est<>0
then
rewrite(arc_exp);
end;

begin
end.

ok pero si sos tan amable pasame tu direccion de email x q el codigo es muy grande tiene mas de 3440 lineas y usa 10 units x q ya se extendia demacio el codigo y me comenzaba a dar error 48 code segment to large a si que tuvew q comenzar a crear units y hay fue cuando comence con este error antes funcionaba perfectamente dejo mi email para el msn si alguien es tan amable de ayudarme es [email protected]
muchas gracias