sample.pas

   1 Var x : Integer;
   2 Var y: Integer;
   3
   4 Procedure myproc (a : Integer);
   5 Var i : Integer;
   6 Begin
   7   i := a;
   8 End;
   9
  10 Function myfunc (procchar : Integer, procbool : Boolean) : Integer;
  11 Var myvar : Boolean;
  12 Begin
  13   myfunc := 15;
  14 End;
  15
  16 Begin
  17   x := y;
  18 End.
  19