123

type Persoana = record

NumePrenume : string;

ziua : string;

luna : string;

anul : integer;

end;

ListaPersoana = array [1..7] of persoana;

var P : persoana;

LP : ListaPersoana;

n : 1..7;

i : integer;

begin

write('n='); readln(n);

for i:=1 to n do

begin

writeln('Dati datele persoanei ', i);

write ('ziua: ');   readln(LP[i].ziua);

write ('luna: ');   readln(LP[i].luna);

write('anul: ');   readln(LP[i].anul);

end;

P.anul:=0;

for i:=1 to n do

if LP[i].anul > P.anul then P:=LP[i];

writeln('persoana cea mai tanara: ');

writeln(P.ziua, '.' , P.luna, ' .' , P.anul);

readln;

end.