Как в дельфи в из библиотеки передать 3-х мерный массив в главный модуль?

Question

как надо: библиотека стартует, формирует массив и передает его в главный модуль с формой (там по сути поле вывода для значений) ; 
 
а массив не передается

Это код библиотеки:

library root; 
uses 
 SysUtils, 
 dialogs, 
 math, 
 Classes; 
 
VAR 
a:array [2..10,1..10,2..10]of extended; 
{$R *.res} 
 
Procedure Masq(); stdcall; export; 
var 
 i:integer; //вес корня 
 j:integer; //сумма корня 
 k:integer; //степень корня 
g:extended; 
begin 
 for k:=2 to 10 do 
 for j:=1 to 10 do 
 for i:=2 to 10 do 
 begin 
 if k=3 then 
 g:=sqrt(sqrt(i)) 
 else 
 if k=4 then 
 g:=sqrt(sqrt(sqrt(i))) 
 else 
 if k=5 then 
 g:=sqrt(sqrt(sqrt(sqrt(i)))) 
 else 
 if k=6 then 
 g:=sqrt(sqrt(sqrt(sqrt(sqrt(i))))) 
 else 
 if k=7 then 
 g:=sqrt(sqrt(sqrt(sqrt(sqrt(sqrt(i)))))) 
 else 
 if k=8 then 
 g:=sqrt(sqrt(sqrt(sqrt(sqrt(sqrt(sqrt(i))))))) 
 else 
 if k=9 then 
 g:=sqrt(sqrt(sqrt(sqrt(sqrt(sqrt(sqrt(sqrt(i)))))))) 
 else 
 if k=10 then 
 g:=sqrt(sqrt(sqrt(sqrt(sqrt(sqrt(sqrt(sqrt(sqrt(i))))))))) 
 else 
 if k=2 then 
 g:=sqrt(i); 
 
 g:=g*j; 
 a[i,j,k]:=g; 
 end; 
end; 
Exports Masq; 
begin 
 
End.

Полина · Accepted Answer

type 
TExtArray=array [2..10,1..10,2..10]of extended; 
//VAR a:array [2..10,1..10,2..10]of extended; //Нах не надо, работай с Result функции: 
function Masq:TExtArray; stdcall; 
 
if k=3 then 
g:=sqrt(sqrt(i)) 
else 
if k=4 then 
 
Вот этот бред замени на вызов другой функции, которая будет вычислять твой корень нужное количество раз.