Как максимально можно наполнить сосуд V с помощью маленьких сосудов?

var
    a : array[1..500] of LongInt;
    s : array[1..10000] of LongInt;
    n : LongInt;
 
procedure P(v, k, m : LongInt);
var
    i : LongInt;
begin
    if (k > n) or (v <= 0) then begin
        if v = 0 then begin
            for i := 1 to m-1 do
                Write(s[i], ' ');
            WriteLn
        end;
        Exit
    end;
 
    s[m] := a[k];
    P(v-a[k], k, m+1);
    P(v, k+1, m)
end;
 
var
    v, i : LongInt;
begin
    ReadLn(v, n);
    for i := 1 to n do Read(a[i]);
 
    P(v, 1, 1)
end.

var
  V, N, i, j, m: integer;
  a: array[0..501] of integer;
  x: array[0..501, 0..10001] of integer;
  
begin
  readln(V, N);
  for i := 1 to N do
    for j := 0 to V do
      x[i, j] := 0;
  for i := 1 to N do
    read(a[i]);
  for i := 1 to N do
    for j := 0 to V do
      begin
        x[i, j] := x[i - 1, j];
        for m := j div a[i] downto 1 do
          if x[i, j] < x[i - 1, j - m * a[i]] + m * a[i]
            then x[i, j] := x[i - 1, j - m * a[i]] + m * a[i]
      end;
  writeln(x[N, V])
end.