SizeOf(record), FreePascal Опции

[sheka]

Интересное кино:

const
  k = 20;
type
  a = record
    b: string[k];
    c: longint;
  end;

BEGIN
  writeln('k = ',k);
  writeln('Size = ',sizeof(a));
  readln;
END.

Выдает такой результат:

Running "d:\prog\pas\1.exe "
k = 19
Size = 24

Running "d:\prog\pas\1.exe "
k = 20
Size = 28

При чем когда c: longint; закомментировано, то результат правильный: размер = k+1;