program sched2;
uses crt;

{
This program will use an array to record what the user has for each of 7
periods and the grade they have in the class, then it will print out the
name of the course and grade that the user wishes to view.
                        by 
}

var
schedule : array[1..2,1..7] of string[15];
x:integer;
input : char;

begin
clrscr;

writeln ('Enter what class and grade you have for each period -');
for x := 1 to 7 do begin
write ('Class ',x,' : ');
readln (schedule[1,x]);
write ('Grade : ');
readln (schedule[2,x]);
writeln;
end;

delay (500);

clrscr;

repeat
writeln ('What period do you want to look at? (press ''0'' to exit)');
readln (x);
if (x >= 1) and (x <= 7) then begin
writeln;
writeln;
writeln ('During period ',x,', you have ',schedule[1,x]);
writeln ('You have a ',schedule[2,x],' in this class');
readkey;
end;
clrscr;
until x = 0;
end.