啊。。。怎么错了，还有就是所有菜加起来比钱少怎么处理

var
  n:array[0..100,0..100] of integer;
  l,e,i,j,z,y,k,c:integer;
begin
  read(l,e);
  n[0,0]:=1;
  for i:=1 to l do
    read(n[0,i]);
  for i:=1 to e do
    n[i,0]:=1;
  for i:=1 to e do
    for j:=1 to l do
begin
    c:=0;
    if i>n[0,j] then 
      n[i,j]:=n[i-n[0,j],j-1]+n[i,j-1]    
    else if i<n[0,j] then
      n[i,j]:=n[i,j-1]
    else 
      n[i,j]:=n[i,j-1]+1;
    for y:=1 to j do
       c:=c+n[0,y];
    if i>c then n[i,j]:=0;
end;
for i:=1 to e do
begin
    for j:=1 to l do
      write(n[i,j]:5);
writeln;
end;
   for i:=1 to e do
    for j:=1 to l do
      if n[i,j]>z then z:=n[i,j];
  write(z);
end.