Fichier en pascal

Bonjour,
Bonjour,
je veux ecrire un programme pascal qui copie le contenue d'un fichier texte(f1) à la fin d'un autre fichier(f2) mais sans repetition des lignes déja existant dans la deuxieme. le problème que j'ai c'est au niveau du test d'exixtance puius l'acriture dans (f2). voila mon code qui marche pas correctement : j'arrive pas à trouver où est l'erreur . Merci

{*** fonction qui verifie si une ligne existe dans le fichier ou non ***}
function existe (var f:text; l:string): boolean;
var trouve: boolean;
begin
reset(f);
trouve:=false;
repeat
readln(f,ligne);
if l= ligne then trouve := true;
until eof(f) or trouve;
existe:=trouve;

end;

{*** procedure ajouter dans f1 à la fin de f2 ***}
procedure ajout( var f1,f2,f3 : text);
var tr : boolean;
begin
reset(f2);

while not eof(f2)do
begin
readln(f2,ligne);
writeln(f3,ligne);
end;

reset(f1);
while not eof(f1)do
begin
readln(f1,ligne);
tr:= existe(f2,ligne)= true;
writeln(tr);
if not tr then
begin
append(f3);
writeln(f3,ligne);
end;
end;

end;