Lokális és globális változók - példaprogram

program Pelda; 

var a, b, c: integer;
    x, y, z: real;

procedure p1(x:real);         {a p1 nem ismeri, nem használhatja a főprogram x változóját}
  var a: array[1..10]of real;
      s: string;              {lokális változó}	
  begin
    {globális változók: b, c, y, z}
  end;

procedure p2;
  begin
   {imeri a főprogram összes változóját, mint globális változót, nem ismer a p1 s változóját}
  end;

begin

end.