PROGRAM scope_of_variables;

VAR count : INTEGER;
    index : INTEGER;

PROCEDURE print_some_data;

VAR count : 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 *)