Как создать двоичный файл со структурой name:string[30]; date:longint;

type
    TDate = record
        day : 1..31;
        month : 1..12;
        year : Word;
    end;
    TElem = record
        name : String[30];
        date : TDate;
    end;
var
    f : File Of TElem;
    i, n : Byte;
    el : TElem;
begin
    Write('n='); ReadLn(n);
    Assign(f, 'f.dat'); ReWrite(f);
    for i := 1 to n do
    begin
        with el do
        begin
            WriteLn(i, '-тый человек: ');
            Write('   Имя: '); ReadLn(name);
            Write('   Возраст: ');
            with date do
            {$R+}
                ReadLn(day, month, year);
            {$R-}
        end;
        Write(f, el);
    end;
    Close(f);
end.

type
    TDate = record
        day : 1..31;
        month : 1..12;
        year : Word;
    end;
    TElem = record
        name : String[30];
        date : TDate;
    end;
var
    f : File Of TElem;
    el : TElem;
begin
    Assign(f, 'f.dat'); Reset(f);
    while Not(Eof(f)) do
    begin
        Read(f, el);
        with el do
        begin
            WriteLn('Имя: ', name);
            with date do
                WriteLn('Возраст: ', day, ' ', month, ' ', year);
        end;
        WriteLn;
    end;
    Close(f);
end.