Record/fi

type
    TMember = record
        firstname, surname : string;
        address: array [1..3] of string;
        phone: string;
        birthdate: TDateTime;
        paidCurrentSubscription: boolean
    end;

type
    maritalStates = (unmarried, married, widowed, divorced);
    TPerson = record
        (* CONSTANT PART *)
        (* of course records may be nested *)
        name: record
            first, middle, last: string;
        end;
        sex: (male, female);
        (* date of birth *)
        dob: TDateTime;
        (* VARIABLE PART *)
        case maritalStatus: maritalStates of
            unmarried: ( );
            married, widowed: (marriageDate: TDateTime);
            divorced: (marriageDate, divorceDate: TDateTime;
                isFirstDivorce: boolean)            
    end;

    a.firstname := 'George';
    a.surname := 'Petersen';
    a.phone := '789534';
    a.paidCurrentSubscription := true;

with a do
    begin
        firstname := 'George';
        surname := 'Petersen';
        phone := '789534';
        paidCurrentSubscription := true
    end;

var
    a, b: TMember;

(* main program *)
begin
    { ... assign values to the fields in record a .. }
    b := a
    { now b holds a copy of a }
    { don't get confused with references: }
    { a and b still point to different entities of TMember }
end.

type
  //tietueen määrittely
  TSpecialDay = record
    DayName : string;
    month : integer;
    day : integer;
  end;

const

  // TSpecialDay vakiomäärittely
  ChristmasDay : TSpecialDay = 
  (
    DayName : 'Christmas Day';
    month : 12;
    day : 25;
  );