menu procedure should be like
procedure menu(var option:integer);
{so this'll be where you put all txt to display,i'm saving myself a few lines here lol}
readln(choice);
end;
{top level begins here,i'm only writing the lines you need for this repeating menu}
var option:integer;
{you'll have more variables but as i said i'm only dealing wiv da menu}
repeat
menu(option);case option of
1:member procedure;
2:books procedure;
until option=3;
hope this helps
Reputation Points: -7
Solved Threads: 4
Junior Poster in Training
Offline 66 posts
since Jan 2008