You're reading the high scores into HighScoresData, and then overwriting them with the next score. There's nothing in the HighScore array.
i = 1;
while not eof(ScoresFile)do
begin
read (ScoresFile, HighScoresData);
HighScore[i] := HighScoresData;
i := i + 1;
end;