{%norun}
program tw24129;

{$mode delphi}
procedure Test;

  function Next: integer;
    function Next: integer;
      function Next: integer;
      var
        Next: integer;
      begin

      end;
    begin

    end;
  begin

  end;

begin

end;

begin
end.