program testFiles( input, output, infile,outfile);
var infile, outfile : text;
    infileName, outfileName : String;
begin
   writeln (' please enter the name of your input file and hit return ');
   writeln (' note that the file must already exist ');
   readln (infileName);
   writeln (' please enter the name of your output file and hit return ');
   writeln (' this file does not have to exist ');
   readln (outfilename);

   assign (infile, infileName);
   assign (outfile, outfileName);

   reset (infile);
   rewrite (outfile);

   close(infile);
   close(outfile);
END.