Χρήση εγγραφών

Οι εγγραφές μπορούν να περαστούν ως όρισμα σε συνάρτηση με βάση τύπο που τις καθορίζει.
Επιτρέπεται ακόμα η εκχώρηση τιμών ανάμεσα σε εγγραφές ίδιου τύπου.

Παράδειγμα:

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;

procedure MyPlot(c : coordinate);
begin
	putpixel(c.x, c.y, 1)
end;

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

    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;
    members[2] := members[1];
    members[2].name := 'C3PO'
end.