"Gekapselte" Prozeduraufrufe innerhalb einer Prozedur

[negaH]

das erste begin ist falsch.

Delphi-Quellcode:

procedure x;
var
  z: integer;

  procedure y;
  begin
    z := z +1;
  end;

begin
  z := 0;
  y;
end;