internal assembler error

program t2560;

Device = mega2560, VCC=5;

Import
  SysTick,
  SerPort;

from System import
  longword;

Define
  ProcClock         = 16000000;         {Hertz}
  SysTick           = 10;             {msec}
  StackSize         = $0100, iData;
  FrameSize         = $0100, iData;
{------------------------------------------------------------------------------}
  SerPort           = 57600, Stop2;    {Baud, StopBits|Parity}
  RxBuffer          = 20, iData;
  TxBuffer          = 20, iData;

USES
  ;

Implementation

type
  //tstr   = string[63];  //funktioniert
  tstr   = string[64];    //liefert "internal assembler error"
  tArr   = array[1..4] of tstr;

const

VAR
{$IDATA}
  arr : tArr;

begin
  EnableInts;
  WriteLn(SerOut);
  loop
    ReadLn(SerInp, arr[3]);
    mDelay(1000);
  endloop;
end t2560.

program t2560;

Device = mega2560, VCC=5;

Import
  SysTick,
  SerPort,
  TWIMaster;

from System import
  longword;

Define
  ProcClock         = 16000000;         {Hertz}
  SysTick           = 10;             {msec}
  StackSize         = $0100, iData;
  FrameSize         = $0100, iData;
{------------------------------------------------------------------------------}
  SerPort           = 57600, Stop2;    {Baud, StopBits|Parity}
  RxBuffer          = 20, iData;
  TxBuffer          = 20, iData;
{------------------------------------------------------------------------------}
  TWIpresc          = TWI_BR400;


USES
  ;

Implementation

type

const

VAR
{$IDATA}

begin
  EnableInts;
end t2560.