为什么这段程序总是运行不了，跳出的字是：illegal qualifier

程序是这样的：
var i,n,m,j:longint; a:array[1..100] of integer;
f:array[0..50000] of longint;
function min(a,b:longint):longint;
begin
if abegin
readln(n);
for i:=1 to 10 do read(a[i]);
readln(m);
for i:=1 to m do f[i]:=30000;
for i:=1 to 10 do
for j:=m downto i do
f[j]:=min(f[j],f[j-i]+a[i]);
writeln(f[m]);
end.