Χρήση στοιχείων

Παράδειγμα:

program test;

type

    date = record
       day : 1..31;
       month : 1..12;
       year : integer
    end;

    member = record
         name : packed array [1..4] of char;
         from, ending : date
    end;

var
    coordinate : record
        x, y : integer
    end;

    members : array [1..100] of member;

begin
    coordinate.x := 5;
    coordinate.y := 4;
    writeln(coordinate.x);
    writeln(coordinate.y);

    members[1].name := 'R2D2';
    members[1].from.day := 22;
    members[1].from.month := 5;
    members[1].from.year := 4567;
    members[1].ending.day := 22;
    members[1].ending.month := 5;
    members[1].ending.year := 4570;
end.