1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

const MaxKinder = 40;

type
  TMonth = (Jan,Feb,Mar,Apr,Mai,Jun,Jul,Aug,Sep,Okt,Nov,Dez);
  TDay = 1..31;
  TKind = 1..MaxKinder;  // Kinder sind woanders mit adresse gespeichert und jedes hat eine nummer
  TZustand = (
    Anwesend,
    Abwesend,
    Entschuldigt,
    Beurlaubt);
  TFehlMatrix = array [TMonth,TDay,TKind] of TZustand;					

1:
2:
3:
4:
5:
6:
7:
8:
9:

TDay = class(TObject)
private
  FDay: TDate;
  FChildStates: array[1..MaxChild] of TChildState
public
  constructor Create(const ADay: TDate);
  property Day: TDate read FDate;
  property ChildStates[Index: Integer]: TChildState read GetChildState;
end;