var t,tx: text; s,sx: string;
function fileexists(var filename: string): boolean;
var f: file;
begin
  {$I-} assign(f,filename); reset(f); {$I+}
  fileexists:=(ioresult=0) and (filename<>'');
end;
begin
  assign(t,'c:\xxx.txt'); reset(t);
  assign(tx,'c:\yyy.txt'); rewrite(tx);
    while not eof(t) do
      begin
        readln(t,s);
        if fileexists(s) then
        writeln(tx,s)
        else writeln(tx,'FAIL NE NAIDEN');
      end;
    close(t);
    close(tx);
end.