[delphi] visibilidad y alcance de identificadores

[franco_cvm]

el ejercicio pide determinar que variables y parametros son visibles desde la funcion p, el procedimiento q y el procedimiento test. y en que orden se imprimira en memo1.

el ejercicio:

Código Delphi [-]
procedure test;
var
 x,y,z:integer;
 
 function q(var y:integer):integer;
 var
  x:integer;
 begin
  x:=8;
  y:=y+1;
  memo1.lines.add(y);
  q:=y+x;
 end;
 procedure p(x:integer; var y:integer);
 begin
  y:=2;
  z:=x+y;
  memo1.lines.add(z);
  memo1.lines.add(q(z));
  memo1.lines.add(z);
 end;

begin
 x:=1;
 y:=3;
 z:=20;
 p(x,y);
 memo1.lines.add(x,' ',y,' ',z)
end.