Delphi, помогите с алгоритмом

[Crossfire]

Условие задачи:
Из списка студентов группы, где приведены сведения: фамилия, инициалы, год, месяц и день рождения, оценки по четырем предметам, напечатать фамилию самого старшего и самого младшего студентов, учащихся без троек.
Почти все сделал, но цикл похоже по всему условию не проходит.

min:= StrToDate('01.01.1998');
max:= StrToDate('31.12.1994');
for i:=1 to 4 do begin
  if (z[i].dr.rozhd>max) and (z[i].best.mat>=4) and (z[i].best.inf>=4)
    and (z[i].best.rus>=4) and (z[i].best.eng>=4) then   begin
    a:=z[i].familiya;
    max:=z[i].dr.rozhd;            end;
    Label1.Caption:=a;
  if (z[i].dr.rozhd<min)and(z[i].best.mat>=4) and (z[i].best.inf>=4)
    and (z[i].best.rus>=4) and (z[i].best.eng>=4) then   begin
    d:=z[i].familiya;
    min:=z[i].dr.rozhd;  end;
    Label2.Caption:=d;

Я делал по циклу для каждого условия отдельно, но он так же работает только с первым условием. Может условие как подправить можно?

[fbus]

Первое что бросается в глаза - цикл от 1 до 4. нужно посмотреть заполнение (насколько я понял речь идет о Record) массива. возможно, там заполнение начинается с нуля. Вместо >=4 я бы поставил >3 хотя это не принципиально.
Ну и главное не запутаться - у кого дата рождения меньше, тот старше.
Вообще, по сути, хотелось бы увидеть весь код. возможно что-то раньше напутано.