Wrong jump address with for loop

[Skertan]

program NewProgram;
uses Commodore64;
var
  x : byte;  
  y : word;
begin
  y := 0;
  for x:= 0 to 20 do
    y := y + 1;
    y := y + 1;
    y := y + 1;
    y := y + 1;
    y := y + 1;
    y := y + 1;
    y := y + 1;
  end;  
end.

Gives a BNE to $0917 it should be $0817

      $089C E6 F8    INC x 
      $089E A5 F8    LDA x 
      $08A0 C9 15    CMP #$15 
      $08A2 D0 73    BNE $0917 
;--------------------
      END

[t-edson]

It's fixed now. It was some missing code not updated in the REPEAT loops.

[Skertan]

Thank you for the quick response. For loop works now with larger content.