Консольное приложение в Deiphi

[qwe1qwe2qwe3]

Подскажите как организовать вывод результатов в текстовый файл с именем, задаваемым пользователем?

[Zoomer123]

...
var list:textfile;
text:string;
...
readln(list);
Assignfile(list, ExtractFilePath(Application.ExeName)+text); 
  Rewrite(list);
  Closefile(list);
...

Append(list);
          Writeln(list,'строка');
          Closefile(list);
...
end.

Должно сработать...