Array Problem

[pator]

I'm using CRXI
I have found the following array code on this site and tried modifying it for my own use.
My problem is the last part of it only returns the last record in the array,

My problem is this,
I have comments in a shared array variable which is derived using this code in a subreport.

whileprintingrecords;
shared stringvar array KpiAr;
numbervar Counter;
Counter := Counter + 1;
if Counter <= 1000 then
(
Redim Preserve Kpiar[Counter];
kpiar[Counter] := {@SHareString};//SharesString is formula I use to collect the comments from my data source SAP

);

I placed this subreport in the details section in my main report and I can see the correct amount of data returned. If I place it in the main report footer I can only
see the last record. I intend to suppress this section If I can get my problem sorted.

I then use following code in the main report footer, I am trying to use an array to take the data in the subreport into my footer section. When I do this I
can only see the last record in the shared variable.

Coded in footer
WhilePrintingRecords;
shared stringvar array KpiAr;
shared stringVar strPNR;
numbervar i;
For i := 1 to Count(KpiAr)
do
strPNR := KpiAr;
strPNR

Regards & Thanks
pator