Определить самого старшего человека из списка и вывести его фамилию, имя и дату рождения

Type Vozr=Record
     Fam:string[20];
     Name:string[20];
     D:1..31;
     M:1..12;
     G:1800..2100;
     End;
Var  A:array[1..100] of Vozr;
     i,n,k,imax:integer;
     max:Vozr;
Begin
     write('Введите кол-во людей в списке: ');readln(n);
     For i:=1 to n do
      Begin
       writeln('Введите информацию о ',i,'-ом человеке: ');
       write('Фамилия: ');readln(A[i].Fam);
       write('Имя: ');readln(A[i].Name);
       write('День рождения: ');readln(A[i].D);
       write('Месяц рождения: ');readln(A[i].M);
       write('Год рождения: ');readln(A[i].G);
      End;
     max:=A[1];{Самым старым делаем первого}
     For i:=2 to n do
      Begin
       if A[i].G>max.G then 
        Begin
         max:=A[i];
         imax:=i;
        End;
       if (A[i].G=max.G)and(A[i].M>max.M) then
        Begin
         max:=A[i];
         imax:=i;
        End;
       if (A[i].G=max.G)and(A[i].M=max.M)and(A[i].D>max.D) then 
        Begin
         max:=A[i];
         imax:=i;
        End;
      End;
     k:=1;
     For i:=1 to n do
      if (A[i].G=max.G)and(A[i].M=max.M)and(A[i].D=max.D)and(i<>imax) then inc(k);
     if k=1 then writeln(Max.Fam,' ',Max.Name)
      else writeln('Старших: ',k);
End.

max:=A[1];{Самым старым делаем первого}

max:=A[1];imax:=1;{Самым старым делаем первого}i