задача по комбинаторике в delphi

[Jumbo]

Задача: сколькими способами можно выбрать из N студентов K тех, кто будет получать стипендию?( 0<=N<=500, 0<=K<=N)
Нужно найти ответ по модулю 9929.
Вот моё решение через биномиальные коэффициенты, но на тесте 5 выдаёт неправильный ответ. Почему?

uses
  SysUtils;
 var f,f1:text; k,n,i:integer; a:array[0..500] of real;
begin
  assign(f,'stipend.in');
  reset(f);
  assign(f1,'stipend.out');
  rewrite(f1);
  read(f,n,k);
  close(f);
  if k=0 then begin write(f1,'0'); close(f1); halt end else if
   k=1 then begin write(f1,n); close(f1); halt end
    else if n=k then begin write(f1,'1'); close(f1); halt end;
  a[1]:=n;
  for i:=2 to k do begin
   a[i]:=( a[i-1]*(n-i+1)/i) );
     while a[i]>9929 do
      a[i]:=a[i]-9929;
  end;
  write(f1,a[k]:0:0);
  close(f1);
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.