how to share variable of subreport to mainreport.

Local NumberVar i;
Local NumberVar c:=count({Account_Credit.Total_Amount_Credit});
For i := 0 to c  do
(
Shared Numbervar creditsum:=c+1;
Shared stringVar str[creditsum];
);
str;

Shared stringvar str;
str;