Ciklusváltozók és a “lokalitás” kényszere

Var i:Integer;
  Procedure A;
  Begin
    For i:= … do …
  End;
Begin
  For i:= … do
  Begin … A; … End;
End.