Помогите найти ошибку в решении олимпиадной задаче...

1087. Время забирать камни
Ограничение времени: 1.0 секунды
Ограничение памяти: 16 МБ
Вероятно, вы знаете игру, в которой два участника по очереди берут из кучки от 1 до 3 камней, и проигрывает тот, кто взял последний камень. Мы немного обобщим эту задачу: будем считать, что оба игрока могут брать не по 1, 2, 3 камня, а по k1, k2, …, km камней. Нас опять будет интересовать вопрос, кто из игроков выигрывает при правильной игре. Гарантируется, что вне зависимости от уже сделанных игроками ходов, всегда возможно сделать очередной ход.
Исходные данные
В первой строке даны числа n и m (1 ≤ n ≤ 10000; 1 ≤ m ≤ 50) — начальное количество камней в кучке и количество чисел k1, …, km. Во второй строке через пробел находятся числа k1, …, km (1 ≤ ki ≤ n).
Результат
Выведите число 1, если при правильной игре обоих выигрывает первый игрок (первым берущий камни) . Иначе выведите число 2.
http://acm.timus.ru/problem.aspx?space=1&num=1087
Моё решение:
Program z1;
var
win:array[0..10000]of integer;
k:array[1..50]of integer;
i,j,n,m:integer;
begin
readln(n,m);
win[0]:=0;
for i:=1 to m do readln(k);
For i:=1 to n do begin
for j:=1 to m do begin
if i-k[j]>=0 then
if win[i-k[j]]=0 then
win:=1;
end;
end;
if win[n]=1 then writeln('2') else writeln('1');
readln;
end.

Компилятор в тимусе выдаёт ошибку, но я никак не могу понять, что неверно (