person

type person = record

  gene: chromosome;

  dgene: array [1..10] of SwellType;

  SegNoGene: Integer;

  SegDistGene: Integer;

  CompletenessGene: CompletenessType;

  SpokesGene: SpokesType;

  tricklegene: Integer;

  mutsizegene: Integer;

  mutprobgene: Integer;

end;