* made code able to run

tests/tbs0032.pp

@@ -1,6 +1,12 @@
 var
    p : procedure(w : word);
 
+  procedure pp(w :word);
+    begin
+       Writeln(w);
+    end;
+
 begin
+   p:=@pp;
    p(1234);
 end.