Is this possible or do I need to do something else?
Code is below:

PROCEDURE MENU_CHOICE;

BEGIN
              <SNIP>

               writeln ('Please press 1 to go back to the main menu');
               c := readkey;
               CASE c OF
               '1': MENU_CHOICE;

However, recursive procedures are normally used for things
like recursive directory searches. They are not meant to be
used for loops like yours. I suspect you want to do something
different: You want to return to the main menu from a submenu
whenever the user selects "1". This requires a different
structure, e.g.

Procedure MainMenu (var ReturnCode: byte);
Begin
...
end;

Procedure Submenu1 (var ReturnCode: byte);
Begin
...
end;

Procedure Submenu2 (var ReturnCode: byte);
Begin
...
end;
{ ====================== }
Begin
    repeat
        MainMenu(MenuCode);
        Case MenuCode of
            1: SubMenu1;
            2: SubMenu2;
            9:;
            0:;
        end;
    until MenuCode=0;
end.

This code will launch SubMenu1 when the user
presses 1 and SubMenu when he/she presses2.
When the user presses 9 in any menu it will
relaunch MainMenu.
When the user presses 0 in any menu the program
will terminate.

on Sat, 22 Apr 2000 at 11:56:06 o'clock, BHD wrote:

Repeat
 writeln('Press 1 to activate menu again ');
 writeln('Press E to exit program ');
 repeat until keypressed;
 c:=readkey;
until c <> '1';
if c='E' then exit;

Now recursion us usable with menus, then there are submenus. That is
you pass the menu as parameter and then in case of submenu call it
recursively for the submenu. In general recursion always requires
parameter passing.