Trecord3 = record
recod3: of array  [1...100500] of real;(ну например)
end;

Trecord2 = record
recod2: of array  [1...100500] of Trecord3;
end;

Trecord1 = record
recod1: of array  [1...100500] of Trecord2;
end;

Trecord3 = record
arrray2: of array  [1...100500] of real;(ну например)
end;

Trecord2 = record
recod2: of array  [1...100500] of Trecord3;
arrray1: of array  [1...100500] of integer;(тоже например)
end;

Trecord1 = record
recod1: of array  [1...100500] of Trecord2;
end;

Procedure procedure1 (mass: array of real)
begin
//работа с массивом
end;

Procedure procedure2 (mass: array of integer)
begin
//работа с массивом
end;

a: array [5-10] of integer;

procedure p(const a : array of real);
var
  i: Integer;
  r: Real;
begin
  for i := Low(a) to High(a) do
    r := a[i]
end;

program Prg;

{$APPTYPE CONSOLE}

uses
  SysUtils;


type
  TDynRealArray = array of real;

  TR = record // Запись с массивом
   p : real;
   a: TDynRealArray;
  end;

 procedure p(var aA : TDynRealArray); // Процедура
 var
   i: Integer;
 begin
   SetLength(aA, Length(aA) * 2);
   for i := Length(aA) div 2 to High(aA) do
     aA[i] := Random ;
 end;

 var
   fR : TR;
  i: Integer;
begin
  fR.p := 3.14159265359;
  SetLength(fR.a, 3);
  for i := 0 to High(fR.a) do
    fR.a[i] := i;

  p(fR.a); // Обработка массива как части записи в процедуре

  for i := 0 to High(fR.a) do
    writeln(i, ' = ',  fR.a[i]);
  readln;
end.

SetLength(aA, Length(aA) * 2);
   for i := Length(aA) div 2