Repository URL to install this package:
program test; procedure Test1; var a: Integer; procedure Test2; begin a:= 0; end; begin end; begin end.