pascal的经典问题,知道看一下我的问题在哪里啊

下面是我的的pascal的程序,不知道为什么就是不对,高手看下,我错在哪里
说一下,谢谢了

program bag;
var w,p:array[1..100] of integer;
money:array[-1..100,-13..1000] of longint;
c,i,n,h:integer;
function get(n,wh:integer):longint;
var temp1,temp2,max:longint;
begin
if (n=0) or (wh<=0) then max:=0
else begin
if money[n-1,wh]=-1 then temp1:=get(n-1,wh)
else temp1:=money[n-1,wh];
if money[n-1,wh-w[n]]=-1 then temp2:=get(n-1,wh-w[n])+p[n]
else temp2:=money[n-1,wh-w[n]]+p[n];
if temp1>=temp2 then max:=temp1
else max:=temp2;
end;
money[n,wh]:=max;
get:=max;
end;

pascal的经典问题,知道看一下我的问题在哪里啊 pascal 问题 懂的来看看 经典的背包问题,知道的麻烦进来看一下. 来帮我看一个问题（pascal的） pascal语言程序设计的问题 一些pascal的问题 两个pascal的问题 关于PASCAL的问题 PASCAL的图形问题 PASCAL的问题