файлы в паскале Опции

[Gray]

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

заранее спасибо!

[Gray]

вот я пишу как в хелпе:

var F: Text;
a,b: char;
begin
Assign(F, 'TEST.TXT');
Rewrite(F); { Create new file }
readln(a);
Writeln(F, 'HELLO');
Close(F); { Close file, save changes }

Append(F); { Add more text onto end }
readln(B);
Writeln(F, 'PRIVET');
Close(F); { Close file, save changes }
end.

но тут записуется только 1 раз

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

принцып, как в гостевых книгах