Передать локальную процедуру (под-процедуру) через переменную

[DeepFlake]

>как через переменную вызвать локальную процедуру?

А у вас какой компилятор?
Для FPC можно так написать:

{$modeswitch nestedprocvars}
program NestedProc;

procedure A1proc;
    type
        Ptype = procedure is nested;
    var
        P: Ptype;

    procedure P1;
    begin
        writeln('P1 call');
    end;

begin
    P:=Ptype(@P1);
    P();
end;

begin
    A1proc;
end.

А вообще, использование вложенных процедур признано устаревшей техникой программирования. Она появилась в те времена, когда ещё не изобрели модули и классы. Сейчас для программирования процедур в процедурах надо использовать анонимные функции и классы-контейнеры для процедур.

Procedure aaa;
type
  Ptype=reference to procedure;
var
  p, p1, p2: Ptype;

begin
  p1:=procedure;
  begin
    {код}
  end;

  p2:=procedure;
  begin
    {код}
  end;

  if {условие} then p:=p1 else p:=p2;
  {код}
  p();
end.