program sched;
uses crt;

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

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

begin
clrscr;

writeln ('Enter what class you have for period -');
for x := 1 to 7 do begin
write (x,' : ');
readln (schedule[x]);
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[x]);
readkey;
end;
clrscr;
until x = 0;
end.