Exemples

Il suffit d'écrire les instructions suivantes :

    auto.marque := 'Peugeot';

    auto.cylindree := 2.0;

    auto.couleur := 'gris';

    auto.nom := '307 HDI';

    auto.prix := 18000;

type

    Adr = record

             numero : integer;

             rue : string;

             CP, ville : string;

             pays : string;

          end;

    Bat = record

             nom : string;

             adresse : Adr;

             departement : array[1..6] of string;

          end;

    Universite = record

              nom : string;

              tel : string;

               batiment : Bat;

          end;

 var

       fac : Universite ;

begin

   ...

      fac.tel := '0344234423';

      fac.nom := 'Universite de Technologie de Compiègne' ;

      fac.batiment.nom := 'Franklin' ;

      fac.batiment.adresse.rue := 'Personne de Roberval' ;

      fac.batiment.departement[1] := 'GI' ;

      fac.batiment.departement[2] := 'GM' ;

   ...