procedure Write(var F: File; var Value; ...);
procedure Write(Expr:Width:Precision; ...);
procedure Write(var F: TextFile; Expr.Width:Precision; ...);

Процедура Write предназначена для записи текста и других данных и файл. Записывая двоичный файл, необходимо указать переменную того же типа, что и базовый тип файла. Можно сохранить несколько записей, перечислив соответствующие переменные в аргументах процедуры Write.
При записи текстового файла можно использовать строковые, числовые, символьные и логические значения. С каждым значением могут быть указаны любые целые выражения Width и Precision. Width определяет минимальный размер символьного представления Value, Precision - количество знаков после десятичной точки для вещественного числа. Процедура Write записывает столько символов, сколько требуется, поэтому Width - лишь предлагаемая минимальная ширина. Если числу требуется меньше чем Width символов, Write дополняет его пробелами слева. Если Width не указывается, Delphi использует 1 в качестве минимальной длины для целых чисел, а вещественные числа выводит в следующем 26-символьном формате: '-1.12345678901234567E+1234'
Если Expr - вещественное значение, Write сокращает количество десятичных знаков, чтобы поместить значение в строку не более Width символов. Однако Write всегда использует, как минимум, одну цифру после десятичной точки. Можно задать значение Precision, которое сообщает процедуре Write, сколько знаков после десятичной точки следует указать. Если указывается Precision, Write использует форму записи числа с фиксированной точкой вместо экспоненциальной формы.

• Если файл не был назначен процедурой AssignFile, Write генерирует ошибку ввода/вывода.
• Если файл не был открыт для записи, Write выдает ошибку ввода/вывода 104.
• Если запись была прервана из-за того, что диск переполнен, Write иногда выдает ошибку Windows Error_Disk_Full (112); иногда - ошибку ввода/вывода 101.
• Если в первом аргументе не указана файловая переменная, Write выполняет запись в текстовый файл Output.
• Процедура Str выполняет те же действия, что и Write, кроме того, что "записывает" одиночную величину в строку, а не в файл.

var
  D1, D2: TSomeRecord;
  F: File of TSomeRecord;
begin
  ...
  Write(F, D1, D2);