type xx=record end;
begin
  var a := new real[100];
  var aa := new xx[10];
end.