Паскаль. Задача не проходит все тесты. Где прокол?

Рамзи Сарнаех создал новую компанию пригородных услуг, которую назвал Нерешенные Идеи (НИ). Пока Рамзи в НИ еще не нанял работников, поэтому он первые несколько месяцев должен работать сам, пока он не сможет расширить свою компанию. Недавно он получил некоторые проекты от правительственных министерств и разбил все проекты на меньшие независимые подпроекты с разными стоимостями. Мы предполагаем, что все подпроекты могут быть выполнены за единицу времени. Рамзи, имея ограниченное время, но будучи оптимистом, хочет знать, сколько, в наилучшем случае, он может заработать, принимая более ценные подпроекты и отклоняя другие.

Входные данные

Первая строка содержит количество тестов. Каждый тест задается одной строкой и начинается с двух целых чисел: времени t, имеющегося в распоряжении Рамзи и количество подпроектов p соответственно (0 ≤ t, p ≤ 1000). За этими двумя числами следует p неотрицательных целых чисел (от 0 до 32767, включительно), которые являются значениями стоимости подпроектов. Все числа в одной строке разделены пробелом.

Выходные данные

Для каждого теста вывести в одной строке максимальную заработанную сумму денег (сумму значений), которую можно достичь в пределах доступного времени Рамзи.

Входные данные
3
3 5 1 1 1 1 1
4 2 161 5
4 7 8 2 9 17 4 4 10
Выходные данные
3
166
44

вот код:

var ans,a:array[1..1000] of longint;
s:string;
i,x,h,j,l,n,k,d,g,p,t:longint;
begin
k := 1;
readln(n);
for i := 1 to n do
begin
readln(s);
s := s + ' ';
t := ord(s[1]) - 48;
p := ord(s[3]) - 48;
for j := 5 to length(s) do
if (s[j] <> ' ') and (j >= g) then
begin
inc(l);

for h := j to length(s) do
if s[h] <> ' '
then inc(d)
else break;
for h := j + d - 1 downto j do
begin
a[l] := a[l] + ((ord(s[h]) - 48) * k);
k := k * 10;
end;
k := 1;
g := j + d;
d := 0;
end;
for j := 1 to l - 1 do
for h := j + 1 to l do
if a[j] < a[h] then
begin
x := a[j];
a[j] := a[h];
a[h] := x;
end;
for j := 1 to t do
ans[i] := ans[i] + a[j];
l := 0;
for j := 1 to p do
a[j] := 0;
g := 0;
p := 0;
t := 0;
end;
for i := 1 to n do
writeln(ans[i]);
end.