Of course you can !!

Procedure A:

   Procedure B:
   Begin
      Writeln('In Procedure B');
   End;

Begin { A }
  Writeln('In Procedure A');
End;

Just pay attention with any variables, especially their scope !

HTH

Ray Cramer

PROCEDURE start;
VAR
  a,
  b : Integer;

  PROCEDURE start1
  BEGIN
    .
    your code
    .
  END;
  FUNCTION start2
  BEGIN
    .
    .
    .
  END;
  PROCEDURE start3
  BEGIN
    .
    .
    .
   END;

BEGIN (* main program IN proceduere *)
  start1
  IF start2 THEN start3;
END;

(* MAIN PROGRAM *)

BEGIN
  start;
END;

Ronny Reitan
email : ronny#nvg.unit.no

PROCEDURE start;
VAR
  a,
  b : Integer;

  PROCEDURE start1
  BEGIN
    .
    your code
    .
  END;
  FUNCTION start2
  BEGIN
    .
    .
    .
  END;
  PROCEDURE start3
  BEGIN
    .
    .
    .
   END;

BEGIN (* main program IN proceduere *)
  start1
  IF start2 THEN start3;
END;

(* MAIN PROGRAM *)

BEGIN
  start;
END;

Ronny Reitan
email : ronny#nvg.unit.no