Asa m-am gandit si eu, dar nu stiu cum sa transpun asta.

Buna ziua.
Va rog sa ma ajutati la o problema Pascal.
Problema cere sa elaborez un program care citeste de  datele  la n persoane (n<50) si afiseaza pe ecran :a)persoana cea mai in varsta; b) cea mai tanara;

Iata ce am reusit sa fac

Program P3;
type Data=record
ziua:1..31;
luna:1..12;
anul:integer;
end;
Persoana=record
NumePrenume:string;
DataNasterii:Data;
end;
ListaPersoane=array [1..50] of Persoana;
var n,i:integer;
LP:ListaPersoane; loc:string;
begin
writeln ('Introduceti numarul de persoane;); readln(n);
writeln('Introduceti datele');
for i:=1 to n do begin
writeln('Numele si prenumele:'); readln (LP[ i ].NumePrenume);
writeln('Ziua nasterii'); readln (LP [ i ].DataNasterii.ziua);
writeln('Luna nasterii'); readln(LP[ i ].DataNasterii.luna);
writeln('AnulNasterii'); readln(LP[ i ].DataNasterii.anul);


Pana aici rogramul citeste datele. Va rog sa-mi dati o ideee cum sa rezolv unctul a. Am incercat cateva variante, dar nu au mers.
Multumesc anticipat.