Процедура Rewrite
модуль System
Назначение:
Создает и открывает новый файл.
Целевая платформа: Реальный режим, защищенный режим, Windows.
Описание: procedure Rewrite(f [: file; Size : Word ] )
Примечания:
Параметр f является файловой переменной, соотетствующей любому типу файла. Он должен быть связан с внешним файлом с помощью процедуры Assign.

Параметр размера Size представляет собой необязательное выражение длиной в слово и может указываться только в том случае, если f является нетипизированным файлом. Если этот параметр опущен, то подразумевается размер записи в 128 байт.
Процедура Rewrite создает новый внешний файл, имя которого было присвоено f. Если внешний файл с указанным именем уже существует, то он удаляется, и на его месте создается новый пустой файл. Если файл f уже открыт, то он сначала закрывается, а затем открывается вновь. Текущая позиция в файле устанавливается на начало файла. Если f было присвоено пустое имя (например, Assign(f, ' ')), то обращение к процедуре Rewrite(f) будет ссылкой на стандартный файл ввода (стандартный описатель файла номер 1).
Если f - текстовый файл, то он становится доступным только по записи. После обращения к процедуре Rewrite Eof(f) принимает значение Truе, если файл пуст, и значение False в противном случае.
Если f является нетипизированным файлом, то параметр Size определяет размер записи, который должен использоваться при переаче данных. Если этот параметр опущен, то он подразумевается равным по умолчанию 128 байтам.
При указании директивы компилятора {$I-} функция IORеsult будет возвращать значение 0 в том случае, если операция завершилась успешно, и ненулевой код ошибки в противном случае.

См. также: FileMode, Truncate, Lst, Reset, Append, Assign.
Пример:

uses Crt;
{ в Windows используйте WinCrt }
var f : text;
begin
      Assign(f, 'NEWFILE,$$$');
      Rewrite(f);
      Writeln(f,'Создается файл, в который записывается эта', ' строка');
      Close(f);
end.