主题：后台程序

 variable:arr1[22]=0,arr4[22]='str',counter=0,counter1=0,temp4='str',temp2=0;
ag1:=stkindi('ag01','涨跌排序.涨幅',0,6,0);
al1:=stkindi('al02','涨跌排序.涨幅',0,6,0);
au1:=stkindi('au06','涨跌排序.涨幅',0,6,0);
ay1:=stkindi('ay05','涨跌排序.涨幅',0,6,0);
c1:=stkindi('c05','涨跌排序.涨幅',0,6,0);
cf1:=stkindi('cf05','涨跌排序.涨幅',0,6,0);
cu1:=stkindi('cu03','涨跌排序.涨幅',0,6,0);
er1:=stkindi('er05','涨跌排序.涨幅',0,6,0);
j1:=stkindi('j05','涨跌排序.涨幅',0,6,0);
l1:=stkindi('l05','涨跌排序.涨幅',0,6,0);
m1:=stkindi('m05','涨跌排序.涨幅',0,6,0);
me1:=stkindi('me01','涨跌排序.涨幅',0,6,0);
p1:=stkindi('p05','涨跌排序.涨幅',0,6,0);
rb1:=stkindi('rb05','涨跌排序.涨幅',0,6,0);
ro1:=stkindi('ro01','涨跌排序.涨幅',0,6,0);
ru1:=stkindi('ru05','涨跌排序.涨幅',0,6,0);
sry1:=stkindi('sry05','涨跌排序.涨幅',0,6,0);
ta1:=stkindi('ta05','涨跌排序.涨幅',0,6,0);
v1:=stkindi('v05','涨跌排序.涨幅',0,6,0);
wsy1:=stkindi('wsy05','涨跌排序.涨幅',0,6,0);
y1:=stkindi('y05','涨跌排序.涨幅',0,6,0);
zn1:=stkindi('zn02','涨跌排序.涨幅',0,6,0);

arr4[1]:= 'ag01'; arr4[2]:= 'al02'; arr4[3]:= 'au06'; arr4[4]:= 'AY05';arr4[5]:= 'c05'; arr4[6]:= 'cf05'; arr4[7]:= 'cu03'; arr4[8]:= 'er05'; 
arr4[9]:= 'j05';arr4[10]:= 'l05'; arr4[11]:=' m05'; arr4[12]:= 'me01'; arr4[13]:= 'p05'; arr4[14]:= 'rb05';arr4[15]:= 'ro01'; arr4[16]:= 'ru05'; 
arr4[17]:= 'sry05'; arr4[18]:= 'ta05'; arr4[19]:= 'v05';arr4[20]:= 'wsy05';arr4[21]:='y05'; arr4[22]:='zn02';

arr1[1]:= ag1; arr1[2]:= al1; arr1[3]:= au1; arr1[4]:= ay1;arr1[5]:= c1; arr1[6]:= cf1; arr1[7]:= cu1; arr1[8]:= er1; arr1[9]:= j1;arr1[10]:= l1; 
arr1[11]:= m1; arr1[12]:= me1; arr1[13]:= p1; arr1[14]:= rb1;arr1[15]:= ro1; arr1[16]:= ru1; arr1[17]:= sry1; arr1[18]:= ta1; arr1[19]:= v1;arr1[20]:= wsy1;
arr1[21]:=y1; arr1[22]:=zn1; 

for counter1 = 1 to 22 do begin
    for counter = 1 to 21 do begin
    if arr1[counter]>arr1[counter+1] then do BEGIN
     temp2: = arr1[counter+1];
     arr1[counter+1]: = arr1[counter];
     arr1[counter]:= temp2;
     temp4:=arr4[counter+1];
     arr4[counter+1]:=arr4[counter];
     arr4[counter]:=temp4;
     end;
    end
end;

问题应该就是出在这部分了