Χρήση πινάκων

Παράδειγμα:

type
     grades = array [1..120] of integer;

var
     thisYear, lastYear : grades;

procedure readGrades(var theGrades : grades);
...

begin
     readGrades(lastyear);
     thisYear := lastYear
end.