type
  TTest = array of record
    name: string;
  end;
  TTestArray = array of TTest;

var
  h, i, i2: Integer;
  TEST: TTestArray;

begin
  SetLength(TEST, 2);
  SetLength(TEST[0], 2);
  SetLength(TEST[1], 1);
  TEST[0][0].name := 'TEST00';
  TEST[0][1].name := 'TEST01';
  TEST[1][0].name := 'TEST10';
  h := High(TEST);
  for i := 0 to h do
    for i2 := 0 to High(TEST[i]) do
      WriteLn(TEST[i][i2].name);
  WriteLn('DEL...');
  Delete(TEST, 1, 1);
  h := High(TEST);
  for i := 0 to h do
    for i2 := 0 to High(TEST[i]) do
      WriteLn(TEST[i][i2].name);
end.