{$codepage UTF8} Type TProc=Procedure(A:integer); Procedure PAfuera(A:integer); Begin Writeln('Esto esta afuera ',A) End; Procedure MostrarA(A:integer); Var P:TProc; Procedure PDentro(A:integer); Begin Writeln('Esto esta dentro ',A) End; Begin Writeln(A); P:=@PAfuera; //P:=@PDentro; P(5); End; Var MiProc:TProc; Begin MiProc:=@MostrarA; MiProc(5) End.