file_test(not working)

 program location_voiture;
 uses wincrt;
 type
 voit=record
 mat:string[11];
 age:byte;
 puiss:string;
 disp:Boolean;
 end;
 fiche=file of voit;
 var
 v:voit;
 N:word;
 f:file;

 procedure sasie( var n:word);
 begin
    Repeat
        write('n=');
        readln(n);
    until n>=2
end;

procedure remp (var f:file ;Var v:voit);
begin
    assign(f,'C:\Travail Pascal\Agence Location voiture\location_voiture.dat');
    ReWrite(f);
    write('matricule=');
    read(v.mat);
    write(f,v);
    close(f);
end;

Begin
saisie(n);
remp(f,n);
end.