append.pas

{AppEnd.PAS}
 
{ Пример программы для процедуры Append }
 
   Uses WinCrt;
 
   Var F : Text;
 
Begin
 Assign(F, 'TEST.TXT');
 ReWrite(F);   { Создаем новый файл }
 WriteLn(F, 'Немножко текста ;-)');
 Close(F);     { Закрываем файл }
 Append(F);    { Добавляем данные к концу файла }
 WriteLn(F, 'Еще немножко текста !');
 Close(F);     { Закрываем файл }
End.