Сохранение результата в текстовый файл

[qwe1qwe2qwe3]

Имеется программа, нужно сделать так чтоб была возможность сохранить результат в текстовый файл с задаваемым пользователем именем.

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('Vkhodnaya dlina massiva ili 0 dlya vykhoda:');
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('Otritsatelnykh elementov v zadannom massive bolshe, ikh proizvedeniye ravno: ', prod);
end else begin
for i := 0 to n - 1 do
if a[i]=0 then sum:=sum+i;
writeln('Nulevykh elementov v zadannom massive bolshe, summa ikh indeksov ravna: ', sum);
end;
readln;
except
on E: Exception do
Writeln(E.ClassName, ': ', E.Message);
end;
end.

[denisbrain]

// интересно такой код пройдет... 
uses 
Dialogs

Function GetFileNameFromSaveDialog:string;
  var t:Dialogs.TSaveDialog;
begin
  t:=Dialogs.TSaveDialog.Create(nil);
  if t.Execute then begin
  result:=t.FileName;
end;
end;

п.с. прокатывает...