Запись в файл в режиме добавления — Pascal(Паскаль)

program add;
var
     f:text; { текстовый файл }
     i:integer;
begin
     assign(f,'test.txt');
     append(f);          { открыть в режиме добавления }
     for i:=8 to 9 do
          writeln(f,'Строка ',i);
     close(f);           { закрыть файл }
end.