Помогите с программой

type строка=array [1..16] of char;
         дата=record число:1..31;
                     месяц:1..12;
                     год:1900..1979
               end;
         анкета=record фамилия:строка;
                       пол:(муж, жен);
                       деньрожд:дата
                end;
         группа=array [1..25] of анкета;

const
  N = 15; {количество человек в группе}
 
type
  Date = record
    Day, Month, Year: integer;
  end;
 
  Rec = record
     Surname: string;
     BDate: Date;
     Sex: char;
  end;
 
var
  a: array [1..N] of Rec;
  i,maxID,z: integer;
  anketa:Rec;
  datas:Date;
procedure vvod(var f:Rec;var d,m,g:date;var p:Rec);
begin
Writeln('Введите фамилию');
readln(f.surname);
Writeln('введите день');
readln(d.day);
Writeln('введите  месяц');
readln(m.month);
writeln('Введите год');
readln(g.year);
Writeln('введите пол (м\ж)');
readln(p.sex);
end;
begin
writeln('');
readln(z);
if z=1 then vvod(anketa.Surname,datas.Day,datas.Month,datas.Year, anketa.sex);
 
  maxID := 1;
  for i := 2 to N do
    if a.BDate.Year > a[maxID].BDate.Year then
      maxID := i
    else
      if a.BDate.Month > a[maxID].BDate.Month then
        maxID := i
      else
        if a.BDate.Year > a[maxID].BDate.Year then
          maxID := i;
 
  ReadLn
end.