有没有问题?

Question

 //////自定义tstrings最大值
function maxinstrs(var strs:TStrings):integer;
 var
   i,max:integer;
 begin for i:=0 to strs.Count-1 do
  max:=strtoint(strs.strings[0]);
   for i:=1 to strs.Count-1 do
  if strtoint(strs.strings[i])>max then
  begin
  max:=strtoint(strs.strings[i]);
  end;
   result:=max;
 end;
  //////自定义tstrings最大值下标
function indexinstrs(var strs:TStrings):integer;
 var
   i,index,max:integer;
 begin
 for i:=0 to strs.Count-1 do
  max:=strtoint(strs.strings[0]);
  index:=0;
  for i:=1 to strs.Count-1 do
  if strtoint(strs.strings[i])>max then
  begin
  max:=strtoint(strs.strings[i]);
  index:=i;
  end;
  result:=index;
 end;procedure TForm1.Button53Click(Sender: TObject);
var
    strs:TStringList;
    i,j:integer;
    str3,str4,str5,str6,str7,str8:string;
  begin
 str2:='12783';
  strs:=TStringList.Create;
  strs.Add('28');
  strs.Add('29');
  strs.Add('31');
  strs.Add('20');
  strs.Add('29');
     str7:=str7+str2[indexinstrs(strs)+1];////////这句有错?
 end;

Answer 1

function indexinstrs(var strs:TStringList):integer;