Untitled

AppealDieResult : Integer;
BowlDieResult : Integer;
CalculateRunsScored: Integer;
Count : Integer;
Count2 : Integer;
CurrentFile : Text;
DisplayCurrentPlayerNewScore;
DisplayRunsScored;
GetMenuChoice : Integer;
GetValidPlayerName : String;
LineFromFile : String;
LowestCurrentTopScore : Integer;
Name : String;
OptionChosen : Integer;
  OptionSelected : Integer;
PlayerName : String;
PlayerNo : Integer;
  PlayerOneName : String;
PlayerOneScore : Integer;
PlayerScore : Integer
  PlayerTwoName : String;
PlayerTwoScore : Integer
PositionOfLowestCurrentTopScore : Integer;
RollAppealDie : Integer;
RollBowlDie: Integer;
RunsScored : Integer;
Score : Integer;
TopScores : TTopScores;
TTopScore = Record
TTopScores = Array[1..MaxSize] Of TTopScore;
ValuesOnLine : Array[1..2] Of String;
VirtualDiceGame : Boolean