TxT-Dateierstellung 'File not found'

[Crytap]

Guten Abend.
Ich wollte mich mal damit beschäftigen, dass ich in einem Programm, das gewisse Werte ins Array
speichert, damit diese Werte auf Knopfdruck bzw. im Timer als Txt-Datei gespeichert werden.
Da habe es mit dieser Prozedur versucht, jedoch klappte es nicht so ganz, da er mir nur den Fehler anzeigte, dass eine
Datei nicht vorhanden sei.
Ansonsten frage ich mich wie man eine "Speichern unter" Funktion für dieses Projekt einbauen könnte.

Delphi-Quellcode:

procedure TForm1.Button4Click(Sender: TObject);
var a: array [1..2] of shortstring;
var f: file of shortstring;
var i: integer;

begin
assignfile (f, 'C:\Users\---\Desktop\test.txt');
reset (f);
for i:=1 to 2 do
begin
write (f, a[i]);
end;
closefile (f);
end;

Hoffe, dass ihr mir dabei helfen könnt und bedanke mich schon mal im Vorraus.

Liebe Grüße Crytap