var out, students : int
var class1 : array 1 .. 10 of string
var class2 : array 1 .. 10 of string
var class3 : array 1 .. 10 of string
var class4 : array 1 .. 10 of string
var classes : array 1 .. 5 of string := init ("math", "art", "tech", "compsci", "french")
%%%%%%%%%%%%%%%%%%%%%%%%%%

put "How many students are you entering information for? : " ..
get students
var stu : array 1 .. students of string
for i : 1..students
put "Enter name of student : " ..
get stu (i)

put skip
put "Enter the First Class"
get class1 (i)
put "Enter the Second Class"
get class2 (i)
put "Enter the Third Class"
get class3 (i)
put "Enter the Fourth Class"
get class4 (i)

end for

for i : 1..students
var name : string := ("C:\\math.txt")
var file : int
open : file, name, get, put
loop
exit when eof
get : file, *
put : file, stu (i)
end loop
close : file
end for