零件分组pascal程序

这题就是把长度排序，长度相等，就把重的放后面，最后看重量有一个地方下降了，就分组加一。

var
tj,n,i,j:longint;
c,w,s:array[0..1000]of longint;
begin
    readln(n);
    for i:=1 to n do
    read(c[i],w[i]);
    for i:=1 to n-1 do//要用冒泡，不知道为什么我用快排就错了
    begin
        for j:=i+1 to n do
        if (c[i]>c[j])or(c[i]=c[j])and(w[i]>w[j]) then
        begin
            c[0]:=c[i];c[i]:=c[j];c[j]:=c[0];
            w[0]:=w[i];w[i]:=w[j];w[j]:=w[0];
        end;
    end;
    tj:=0;
    for i:=1 to n do
    begin
        j:=1;
        while s[j]>w[i] do inc(j);
        if j>tj then inc(tj);
        s[j]:=w[i];
    end;
    write(tj);
end.