#pas
type
  TRealArray = array [0..20] of real; // Объявление типов. Должно быть в каждом юните.
  TIntArray = array[0..20] of integer;

var // Объявление переменных - там где нужно.
  FreqKoeff, FreqKoeff1 : TRealArray;
  VolKoeff ,VolKoeff1: TRealArray;
  Us,Us1: TRealArray;
  rdf,rdf1 : TIntArray;
  rd1,rd2 : TIntArray;

#pas
type
  TRealArray = array [0..20] of real; // Объявление типов. Должно быть в каждом юните.
  TIntArray = array[0..20] of integer;

.......

procedure THiAsmClass.doWork(var _Data:TData; index:word);
var A: TIntArray;
    i: Integer;
begin

  i := ReadInteger(_Data, Val1, 0); // Val1 - верхняя точка. Нужно соблюдать, массив какого типа на неё подаётся.
  if i <> 0 then
  begin
    A := TIntArray(Pointer(i)^); // В данном случае предполагается, что на верхней точке массив типа TIntArray
                                 // Если там что-то другое - будет Runtime error.
    for i := Low(A) to High(A) do
      _debug(A[i]);
  end;
  
end;

#pas
var
  FreqKoeff: TRealArray = (325.1, 325.1, 325.1*2.5, 1000.15, .........);
  FreqKoeff1 : TRealArray = (...........);

#pas
type

THiAsmClass = class(TDebug)

private

public
  procedure doWork(var _Data:TData; index:word) ;
end; // <<<< =======

TRealArray = array [0..20] of real;  // <<<<  ====
TIntArray = array[0..20] of integer;