[fpc-pascal] for loop variable value reliable after loop?

[Dennis]

var i , n : integer;

for i := 1 to 100 do begin
    if IntArray[i] > 100 then  begin
     n := i;
     break;
    end;
end;

writeln('The '+IntToStr(i)+' item in the array > 100');
//can we be always sure the value i is always the same as n?
Even when the compiler optimizes it and uses a cpu register for i 
instead of a memory location?

Dennis