Вывод результатов в текстовый файл с именем, задаваемым пользователем.

[qwe1qwe2qwe3]

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

program prog_phor1;

{$APPTYPE CONSOLE}

uses
SysUtils;

type
dynamic_arr=array of integer;
var
n: integer;
a: dynamic_arr;
i: integer;
prod: integer;
sum: integer;


function num_negative(var arr: dynamic_arr; n: integer): boolean;
var
k,z: integer;
begin
k:=0; //отрицательные
z:=0; //нулевые
for i:=0 to n-1 do begin
if arr[i]<0 then Inc(k)
else if arr[i]=0 then Inc(z);
end;
if k>z then Result:=true
else Result:=false;
end;

begin
try
randomize;
write('Input length of array or 0 for exit: ');
readln(n);
if n<=0 then exit;
SetLength(a, n);
// В делфе динамические массивы начинаются с нулевого индекса.
for i:= 0 to n-1 do begin
a[i]:=random(5)-3;
end;
writeln('Array is: ');
for i:= 0 to n-1 do begin
write(a[i], ' ');
end;
writeln;

prod:=1;
sum:=0;
if num_negative(a, n) then begin
for i := 0 to n - 1 do
if a[i]<0 then prod:=prod*a[i];
writeln('There are more negative elemnts in array and its prod is: ', prod);
end else begin
for i := 0 to n - 1 do
if a[i]=0 then sum:=sum+i;
writeln('There are more zero elements in array and sum of its indexes: ', sum);
end;
readln;
except
on E: Exception do
Writeln(E.ClassName, ': ', E.Message);
end;
end.