program project1;

{$mode objfpc}{$H+}
{$modeswitch nestedprocvars}

type
  TLocalProc = procedure is nested;

procedure Proc2(L:TLocalProc);
var n:Integer;
begin
  for n:=0 to 10 do
    L;
end;

procedure Proc;
var i:Integer;

procedure LocalProc;
begin
  WriteLn(i);
  Inc(i);
end;

begin
  i:=0;
  Proc2(@LocalProc);
end;

begin
  Proc;
end.