从记录中找到最高值

Procedure FindTopScore(Var TopScores : TTopScores);
Var
Count : Integer;
Highest : Integer;
Name: String;

Begin
     For Count := 1 to MaxSize Do
          If TopScores[Count].Score > Highest Then
     Highest := TopScores[Count].Score;
     Name := TopScores[Count].Name;
       Writeln(\'Higest score is by \' ,TopScores[Count].Name, \' of \', TopScores[Count].Score);
End;

Highest

TopScores[Count].Score

 Writeln(\'Highest is \', Highest, \' for \', Name);

Highest := 0;
For Count := 1 to MaxSize Do Begin
     If TopScores[Count].Score = Highest Then Begin
         Name := Name + \' and \' + TopScores[Count].Name;
     End;
     If TopScores[Count].Score > Highest Then Begin
         Highest := TopScores[Count].Score;
         Name := TopScores[Count].Name;
     End;
 End;

      testhighest.pp(16,39) Warning: Local variable \"Highest\" does not seem to be initialized

        If TopScores[Count].Score > Highest Then