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