Ορισμός εγγραφών

Παράδειγμα:

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;