Program Inputfile;
uses WinCrt;
var  na:string;
     filename: string;
     infile: text;
     more: char;
begin
     write('Please input filename: '); readln(filename);
     assign(infile,filename);
     reset(infile);
     while NOT EOF(INFILE) do
     begin
       write('Name: ');
       readln(infile, na);
       writeln(na);
     end;
     close(infile);
end.