Размерность массива

  rec: array[1..100, 1..100] of string;

  //Если файла нету, то его создаем, в результат записывам 0
  if not(FileExists(sPath + '\options.ini')) then
  begin
    GetDir(0,sPath);
    IniFile:=TIniFile.Create(sPath + '\options.ini');
    for i:=1 to 10 do
      begin
        IniFile.WriteString(IntToStr(i), 'Name', '-');
        IniFile.WriteString(IntToStr(i), 'Value', '0');
      end;
  end;
 
  //Заносим в массив все значения, чтобы в дальнейшем работать с ним, а не с файлом
  for i:=1 to 10 do
    begin
      rec[i, 1]:=IniFile.ReadString(IntToStr(i), 'Name', '10');
      rec[i, 2]:= IniFile.ReadString(IntToStr(i), 'Value', '10');
    end;

var
  state: Boolean;
  nick: string;
  i, n, j, top_rec: Integer;
  tmp_name, tmp_value: string;

      n := High(rec);
      for i:=n-1 downto 1 do
        for j:=1 to i do
          if StrToInt(rec[i, 2]) > StrToInt(rec[i+1, 2]) then
            begin
              tmp_value:=rec[i, 2]; //Тут ругается...
              tmp_name:=rec[i, 1];
 
              rec[i, 2] := rec[i+1, 2];
              rec[i, 1] := rec[i+1, 1];
 
              rec[i+1, 2] := tmp_value;
              rec[i+1, 1] := tmp_name;
            end;

if (TryStrToInt(rec[i, 2],top_rec)) and (TryStrToInt(rec[i+1, 2],top_rec2))  then