Type data=record
Day:integer;
Mounth: integer;
Year: integer;
End;
Var
A: array[1..100] of data;
s:string;
max:data; n,i,p,code:integer;
begin
write('n=');readln(n);
for i:=1 to n do begin
 readln(s);
 p:=pos('.',s);
 val(copy(s,1,p-1),a[i].Day,code);
 delete(s,1,p);
 p:=pos('.',s);
 val(copy(s,1,p-1),a[i].Mounth,code);
 delete(s,1,p);
 val(s,a[i].Year,code);
// with a[i] do writeln(Day,' ',Mounth,' ',Year);
 end;
 max:=a[1];
 for i:=2 to n do
  with a[i] do 
   if (Year>max.Year) or (Year=max.Year)and(Mounth>max.Mounth) or
      (Year=max.Year)and(Mounth=max.Mounth)and(Day>max.Day) then max:=a[i];
 writeln('Max=',max.Day,'.',max.Mounth,'.',max.Year);
end.

Пример работы программы:
n=5
2.10.1963
5.12.1951
4.10.1963
15.2.1956
25.11.1954
Max=4.10.1963