procedure a; var x: integer; procedure b; var y: integer; begin y := 10 * 10; x := y; end; begin b; end;