Παράδειγμα:
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;