PASCAL: Thang máy chỉ giới hạn tối đa khối lượng mang là 500kg . Trước cửa thang máy có n người. Mỗi người có trọng lượng là ai( 1<=i<=n). Yêu cầu: chọn số người vào thang máy sao cho không vượt quá khối lượng mang và số người đi là nhiều nhất . Dữ liệu vào: mảng nguyên dương gồm n phần tử ghi cân nặng của từng người chờ, mỗi phần tử cách nhau một khoảng trắng Dữ liệu ra: Gồm 2 dòng - dòng 1: ghi tổng khối lượng của mọi người trong thang máy - dòng 2: ghi trọng lượng của từng người được chọn đi mỗi phần tử cách nhau một khoảng trắng( ko thay đổi thứ tự của từng người giúp em với ạ

uses crt;
type int = longint;
var a,v:array[0..1000000] of int;
    i,n,d,t:int;
procedure sort(l,r:int;var a,v:array of int);
var i,j,t,x:int;
begin
    i:=l;j:=r;x:=a[(l+r) div 2];
    repeat
        while a[i] < x do inc(i);
        while a[j] > x do dec(j);
        if i <= j then
            begin
                t:=a[i];a[i]:=a[j];a[j]:=t;
                t:=v[i];v[i]:=v[j];v[j]:=t;
                inc(i);dec(j);
            end;
    until i > j;
    if l < j then sort(l,j,a,v);
    if i < r then sort(i,r,a,v);
end;
begin
    clrscr;
    readln(n);
    for i:=1 to n do
        begin
            read(a[i]);
            v[i]:=i;
        end;
    sort(1,n,a,v);
    t:=0;d:=1;
    for i:=1 to n do
        begin
            d:=i;
            t:=t+a[i];
            if t > 500 then
                begin
                    dec(t,a[i]);
                    dec(d);
                    break;
                end;
        end;
    sort(1,d,v,a);
    writeln(t);
    for i:=1 to d do write(a[i],' ');
readln;readln;
end.