Файли

type
    TName = record
        last : String[25];
        first : String[15];
        middle : String[25];
    end;
    TDateOfBirth = record
        day : 1..31;
        month : 1..12;
        year : 1900..2015;
    end;
    TAdress = record
        city : String[25];
        street : String[25];
        no : Word;
    end;
    TMan = record
        name : TName;
        birth : TDateOfBirth;
        sex : Char;
        address : TAdress;
    end;
    TManFile = File Of TMan;
 
var
    f, g : TManFile;
    i, n : Byte;
    man : TMan;
 
procedure FindSmthng(var f, g : TManFile);
var
    man : TMan;
    s : String[25];
begin
    Write('City? '); ReadLn(s);
    Reset(f); ReWrite(g); Seek(f, 0);
    while Not(Eof(f)) do
    begin
        Read(f, man);
        if ((man.sex = 'F') And (man.address.city = s)) then
            Write(g, man);
    end;
    Close(f); Close(g);
end;
 
begin
    Write('n='); ReadLn(n);
    Assign(f, 'f.dat'); Assign(g, 'g.dat');
    ReWrite(f);
    for i := 1 to n do
    begin
        with man do
        begin
            with name do
            begin
                Write('Name (l f m): '); ReadLn(last, first, middle);
            end;
            with birth do
            begin
                {$R+}
                Write('Birth date (dd mm yyyy): '); ReadLn(day, month, year);
                {$R-}
            end;
            repeat
                Write('Sex (F/M): '); ReadLn(sex);
            until (sex in ['M', 'F']);
            with address do
            begin
                Write('City: '); ReadLn(city);
                Write('Street: '); ReadLn(street);
                Write('No: '); ReadLn(no);
            end;
        end;
        WriteLn;
        Write(f, man);
    end;
    Close(f);
    FindSmthng(f, g);
    //для проверки правильности поиска
    {Reset(g); Seek(g, 0);
    while Not(Eof(g)) do
    begin
        Read(g, man);
        WriteLn(man.name.last);
    end;
    Close(g);}
end.