vara, b: array [0..30000]: Integer; |
то попробуйте:
typeTBigArray = array [0..30000] of Integer; vara, b: ^TBigArray; |
и во внешнем блоке сделайте:
GetMem(a, SizeOf(TBigArray));GetMem(b, SizeOf(TBigArray)); |
Также необходимо применять указатели на память вместо ссылок, например взамен:
a[0] := xxx; |
необходимо использовать
a^[0] := xxx; |
[000549]