Program binha4;

Uses crt;

Type
    registro = record
        nome: string[30];
        idade: integer;
        end;

    cadastro = array [1..2] of registro;


Var
    funcionarios:cadastro;

Procedure ler_dados ( var funcionarios:cadastro);
    var
        i: integer;
    begin
        for i:=1 to 2 do
            begin
                writeln('Digite o nome do funcionario');
                readln(funcionarios[i].nome);
                writeln('Digite a idade do funcionario');
                readln(funcionarios[i].idade);
            end;
    end;


Function velho (funcionarios:cadastro): string;
    var
        i: integer;
        aux:integer;
    begin
        aux:=0;
        for i:=1 to 2 do
            begin
                if (funcionarios[i].idade) > aux then
                    begin
                        aux:= (funcionarios[i].idade);
                        velho:= (funcionarios[i].nome);
                    end;
            end;
    end;

    Function novo (funcionarios:cadastro): string;
    var
        i: integer;
        aux:integer;
    begin
        aux:=1000;
        for i:=1 to 2 do
            begin
                if (funcionarios[i].idade) < aux then
                    begin
                        aux:= (funcionarios[i].idade);
                        velho:= (funcionarios[i].nome);
                    end;
            end;
    end;

Begin
    ler_dados(funcionarios);
    writeln(velho(funcionarios));
    writeln(novo(funcionarios))
End.