var DataMinima:Data;
............................
DataMinima.anul = maxint;
for i:=1 to n do
if LP[i].anul < DataMinima.anul then
DataMinima := LP[i]
else
if LP[i].anul = DataMinima.anul and LP[i].luna < DataMinima.luna then
DataMinima := LP[i]
else
if LP[i].anul = DataMinima.anul and LP[i].luna = DataMinima.luna and LP[i].ziua < DataMinima.ziua then
DataMinima := LP[i];
N-am verificat sa vad daca merge, dar ceva de genul asta ar trebui sa fie. La fel si pentru b.