procedure Rank(VAR Xstr : array of string; NoCases : integer);procedure PcntCorrect(VAR Xstr : array of string; NoCases : integer);procedure Percentiles(VAR Xstr : array of string; NoCases : integer);procedure zScores(VAR Xstr : array of string; NoCases : integer);procedure TScores(VAR Xstr : array