Figured out how to do this
var a:array[1…100] of longint;
n,i,s,d,j,t,f:longint;
begin
readln(n);
for i:=1 to n do read(a[i]);
d:=0;
f:=0;
For i:=1 To N-1 Do
For j:=i+1 To N Do
If A[i]>A[j] Then
Begin
T:=A[i]; A[i]:=A[j]; A[j]:=T;
End;
for i:=1 to n do
begin
if f+a[i]>s then break;
f:=f+a[i];
d:=d+1;
end;
writeln(d);
end.