Code:
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:
Code:
write(dat, ptmoment.kennzahl.raum)
.gerät
.zeit.stunde
Sollte ptmoment vom Typ tmoment und letztzahl der Index sein:
Code:
ptmoment[letztzahl].zeit.stunde
hth