Loop variables in ISO 7185

Can loop variables be VAR parameters?

eg
Does the following code conform to ISO7185?

function 1func (var i:integer):integer;
begin
   if i>0 then
   for i:= 0 to 10 do
   begin
     ...
   end;
end;

function 2func:integer;
var a:integer;
begin
   a:= 1;
   2func:= 1func(a);
   ...
end;