我认为你的逻辑有点问题，这11个罐子有没有可能11号罐的一个清洗周期内，1号罐需要清洗两次呢？如果没有的话，也用不着排序了呀！反正你的需要清洗的罐子都是按照罐子的序号来的。那么整一个11个元素的数组变量数据类型是int，默认值都是0，如果当前罐需要清洗，则把当前罐的号插入到数组的队列中：

(*排序*)

for i:=1 to 10 do

   if data[i]<Number and data[i+1]>Number  then

      for j:=11 to i+2 do

            data[j]:=data[j-1]

      end_for;

    end_if;

    data[i+1]:=Nuber;

end_for;

（*清洗结束，罐号出列*）

if Clear_over then

   fo i:=1 to 10 do

       data[i]:=data[i+1];

   end_for;

   Clear_over:=0;

end_if;