RosettaCodeData/Task/Collections/Pascal/collections-3.pascal

var
  MyRecord: record
              x, y, z: real;
              presence: boolean;
            end;
begin
  MyRecord.x :=  0.3;
  MyRecord.y :=  3.2;
  MyRecord.z := -4.0;
  MyRecord.presence := true;
end;