type
    Human = record
        Age: Byte;
        LastName: String[20];
    end;
    Peoples = array of Human;

function PeoplesMaxAge(Peopless: Peoples): Peoples;
var
    I, Count: Byte;
    MaxAge: Integer;
    MaxAgePeoples: Peoples;
begin
    Count := 0;
    MaxAge := -1;
    for I := 0 to Length(Peopless)-1 do
        if (Peopless[I].Age >= MaxAge) then
        begin
            Inc(Count);
            SetLength(MaxAgePeoples, Count);
            MaxAge := Peopless[I].Age;
            MaxAgePeoples[Count-1] := Peopless[I];
        end;
    PeoplesMaxAge := MaxAgePeoples;
end;