[BUG] Access violation

[zbyti]

var
  i     : byte                     absolute $ff;
  glass : array[0..31] of cardinal absolute $5000;  
  p     : ^cardinal;

begin
  p := pointer($4000);
  for i := 0 to 31 do begin
    p^ := glass[i]; inc(p, 10);
  end;   
end.

Mad Pascal Compiler version 1.6.6 [2022/12/12] for 6502
Compiling hello.pas
An unhandled exception occurred at $000000000050A7EE:
                                                     EAccessViolation: Access violation
                                                                                         $000000000050A7EE

[tebe6502]

fixed

[zbyti]

thx, works! :)