Thanks, your advice was really helpfull. I have on last question, if you don't mind.

Here's the last part of my program:

highestavegrade := avegradestudent[1];
FOR i:=2 TO 10 DO
BEGIN
IF avegradestudent[i] >= highestavegrade
THEN highestavegrade := avegradestudent[i];
END;
FOR i:=1 TO 10 DO
BEGIN
IF avegradestudent[i] >= highestavegrade
THEN writeln (*GOLD*, etc, etc

When I run the program all the names of the students appear, instead of the one with the highest average (Jack Bean). What am I doing wrong?