Проблема с записью в текстовой файл

[KyTuH]

Добрый день!)
В программе есть 2 Button'a: "Следующий" и "Записать в файл". Когда нажимаю Баттон "Следующий", у меня меняется текст в Label 1 и Label 2. Когда нажимаю на Баттон "Записать в файл" у меня происходит запись в файл.
Проблема в том, что у меня происходит перезапись файла, а мне нужно чтобы он оставляя текст, который был в файле, дописывал, а не переписывал. Помогите, если не трудно)

[KyTuH]

Вот код к Баттону "Записать в файл"

procedure TForm1.Button1Click(Sender: TObject);
var 
files:array[1..50]of string;
f:text;
begin
files[1]:=label1.caption;
files[2]:=label2.Caption;
assignfile(f,'дежурство.txt');
rewrite(f);
for i := 1 to 2 do
begin
writeln(f,files[i]);
end;
closefile(f);

[alextrof94]

Вместо rewrite(f); поставь append(f);