All! Не подскажете как в Паскале добавить в текстовый файл

Ну собсно сабж

{Sample code for the Append procedure.}
   uses WinCrt;
   var F: Text;
   begin
     Assign(F, 'TEST.TXT');
     Rewrite(F);   { Create new file }
     Writeln(F, 'original text');
     Close(F);   { Close file, save changes }
     Append(F);   { Add more text onto end }
     Writeln(F, 'appended text');
     Close(F);   { Close file, save changes }
   end.