Εγγραφές

Παράδειγμα

var point :
  record
     x : integer;			(* Συντεταγμένη x *)
     y : integer;			(* Συντεταγμένη y *)
  end;

var customer :
  record
    name : array [1..50] of char;	(* Όνομα πελάτη *)
    balance : integer;			(* Υπόλοιπο λογαριασμού *)
  end;

begin
     point.x := 1;
     point.y := 4;
end.