Probleme gestion fichier typé pascal

salut
j'ai un programme qui permet de remplire un fichier d'enregistrement par la suite d'afficher ce fichier et finalement chercher n enregistrement precis mais ce programme n'a pas voulu marcher a l'aide SVP

program te;
uses wincrt;

type
test=record
nom:string;
age:integer;
end;
fiche=file of test;
var f:fiche;
x,t:test;rep:char;exis,nomP:string;
begin
assign(f,'c:\ficenre');
rewrite(f);
repeat
with x do
begin
writeln('nom=');
readln(nom);
writeln('age=');
readln(age);

end;
write(f,x);
writeln('rep=');
readln(rep);
until rep='N';

writeln('donnez un nom');
readln(nomP);

while not(eof(f)) do
begin
WRITE('rttyyyy');
read(f,t);
with t do
begin
writeln('nom=',t.nom);
writeln('age=',t.age);
end;
read;
end;
while not(eof(f)) do
begin
read(f,t);
if nomp=t.nom
then
begin
writeln('bon');
end;
end;
close(f);
end.