Program createfile;
uses WinCrt;
var  na:string;
     filename: string;
     cdir: text;
     more: char;
begin
     write('Please input filename: '); readln(filename);
     assign(cdir,filename);
     rewrite(cdir);
     more:='Y';
     while more='Y' do
     begin
       write('Name: ');readln(na);
       writeln(cdir,na);
       more:='N';
       write('Any more? '); readln(more)
     end;
     close(cdir);
end.