(* Chapter 5 - Program 4 *)
program Scope_Of_Variables;

var Count : integer;
    Index : integer;

procedure Print_Some_Data;
var Count, More_Stuff : integer;
begin
   Count := 7;
   Writeln('In Print_Some_Data Count =',Count:5,
                                         '  Index =',Index:5);
end; (* of Print_Some_Data procedure *)

begin   (* Main program *)
   for Index := 1 to 3 do begin
      Count := Index;
      Writeln('In main program Count  =',Count:5,
                                          '  Index =',Index:5);
      Print_Some_Data;
      Writeln('In main program Count  =',Count:5,
                                          '  Index =',Index:5);
      Writeln;
   end; (* Count loop *)
end. (* main program *)




{ Result of execution

In main program Count  =    1  Index =    1
In Print_Some_Data Count =    7  Index =    1
In main program Count  =    1  Index =    1

In main program Count  =    2  Index =    2
In Print_Some_Data Count =    7  Index =    2
In main program Count  =    2  Index =    2

In main program Count  =    3  Index =    3
In Print_Some_Data Count =    7  Index =    3
In main program Count  =    3  Index =    3

}