NOIP2005采药

用二维DP做的,不知道为什么怎么样都2个对2个超时6个错
帮忙看下是程序有问题还是数据有问题
var f:array[0..200,0..200]of integer;
c:array[1..30]of integer;
w:array[1..30]of integer;
m,v,i,j:integer;

function max(a,b:integer):integer;
var tt:integer;
begin
if a>b then tt:=a else tt:=b;
max:=tt;
exit(tt);
end;

begin
assign(input,'medic.in');
assign(output,'medic.out');
reset(input); rewrite(output);

readln(v,m);

for i:=1 to m do
readln(c[i],w[i]);

for i:=1 to m do
for j:=1 to v do
begin
if j>=c[i]
then f[i,j]:=max(f[i-1,j-c[i]]+w[i],f[i-1,j])
else f[i,j]:=f[i-1,j];

end;
writeln(f[m,j]);
close(input);
close(output);
end.

求NOIP2005中采药的源程序(Pascal) noip2005分数线 求教noip2005青蛙过河 NOIP2005普及pascal初赛试题答案？ NOIP2005复赛 普及组答案 关于NOIP2005（提高组） 征noip2005复赛试题，分析 noip2005年第三题(过河) noip2005复赛成绩（陕西的） 采药插件