Records

PROGRAM records;
TYPE
    // define record type
    People = record
        _id: integer;
        _name: string;
        _email: string;
    END;
VAR
    // declare variables
    Person_1, Person_2: People;
BEGIN
    // initialise record
    Person_1._id := 1;
    Person_1._name := 'Adam';
    Person_1._email := '[email protected]';

    WRITELN(Person_1._id);                      // 1
    WRITELN(Person_1._name);                    // Adam
    WRITELN(Person_1._email);                   // [email protected]

    // initialise record using with
    WITH Person_2 do
    BEGIN
        _id := 2;
        _name := 'Bard';
        _email := '[email protected]';
    END;

    WRITELN(Person_2._id);                      // 2
    WRITELN(Person_2._name);                    // Bard
    WRITELN(Person_2._email);                   // [email protected]
END.