Mail

В этот день много лет назад...
26 ноября. В 1941 году (83 года назад) - Президент США Франклин Рузвельт утвердил ещё один государственный праздник - День Благодарения. Он отмечается в каждый четвертый четверг ноября.

Turbo Pascal Documentation

Процедура Append

     Функция: Открывает текущий файл для присоединения.
     Описание: Append(var f : text)
     Тип результата: Параметр f - файловая  переменная  тек-
стового типа, которая должна быть связана с внешним файлом с
помощью процедуры Аssign. Процедура Аppеnd открывает сущест-
ву-  ющий  внешний  файл с именем, назначенным переменной f.
Если внешнего файла с указанным именем не существует, то это
является ошибкой. Если файл f уже открыт, то он сначала зак-
рывается, а затем открывается заново. Текущая позиция  уста-
навливается на конец файла.
     Если в последнем блоке файла размером 128  байтов  при-
сутствует  символ Сtrl-Z (26 в коде АSСII), то текущая пози-
ция устанавливается в файле таким образом,  что  при  записи
первым в блоке будет "затираться" символ Сtrl-Z.
     Если переменной f было присвоено пустое имя  (например,
Assign(f,''),  то после обращения к процедуре Аppеnd f будет
указывать на стандартный выходной  файл  (стандартный  канал
номер 1). После обращения к Аppеnd файл f становится доступ-
ным только по записи  и  Еоf(f)  всегда  принимает  значение
Тruе.
     При использовании директивы компилятора  {I+}  функция
IОRеsult будет возвращать значение 0 при успешном завершении
операции и ненулевой код ошибки в противном случае.
     Прочее: См. также процедуры Rеsеt и Rеwritе.
     Пример:

  var f : text;
  begin
    Assign(f, 'Test.txt');
    Rewrite(f);                { создать новый файл }
    Writeln(f, 'исходный текст');
    Close(f);          { закрыть файл, сохранить изменения }
    Append(f);         { добавить текст в конец файла }
    Writeln(f,'дополнительный текст');
    Close(f);          { закрыть файл, сохранить изменения }
  end.