[Страдалецъ]

Почти правильно:
Надо:
Type
TMyRec = record
...
end;
TMyRec1 = record
..
end;
Нужно еще и так
Var
Arr : array of TMyRec;
Arr1 : array of TMyRec1;

Не забудьте только задать размер массива SetLength(Arr, 10);