unit example;
interface

type
   CandName(MaxCandName:integer) = string(MaxCandName);
   CandStatus		= (Elected, Eliminated, Neither);
   CandRecord		= record                         
			     Name	: CandName;
			     RawVote	: integer;
			     Allocation	: integer;
			     Status	: CandStatus;
			  end;		
   CandArray(N:integer)	= array[1..N] of CandRecord;
end.