pascal problem! array schreibn

[flinx]

tdatum=record
      jahr:integer;
      monat:1..12;
      tag:1..31;
    end;
    tzeit=record
      stunde:0..23;
      minute:0..59;
      sekunde:0..59;
    end;
    tkennzahl=record
      raum:1..14;
      geraet:1..10;
      Zustand:0..1;
    end;
    tgesamt=record
      datum:tdatum;
      zeit:tzeit;
      kennzahl:tkennzahl;
    end;
    tmoment=array [1..maxaction] of tgesamt;
procedure schreiben(var ptmoment:tgesamt);
...
write(dat,ptmoment[letztzahl]); {ungültige qualifizierung} 
...

IMHO trifft Fehler a) zu. Einen Record wirst nicht mit Indices ansprechen können.
je nach dem was schreiben willst:

write(dat, ptmoment.kennzahl.raum)
                            .gerät
                    .zeit.stunde

Sollte ptmoment vom Typ tmoment und letztzahl der Index sein:

ptmoment[letztzahl].zeit.stunde

hth