[lmikle]

ну и в чем проблема?
Только определись - как считать/сравнивать день рождения - с учетом месяца или нет.
Вот простейшая функция для случая, когда месяц НЕ учитывается:

Код:

function IsSequenceDec(A : Array Of Integer) : Boolean;
var
begin
  Result := True;
  For I := Low(A)+1 To High(A) Do
    Begin
      Result := A[i] < A[I-1];
      If Not Result Then Break;
    End;
end;