Кошки и Мышки

[ubun]

Решил задачу, но при М<100000000 не работает. Почему ?

Несколько кошек съели М мышек,причем все кошки съели по одинаковому числу мышек и каждая кошка съела больше мышек,чем было
кошек. Вам необходима узнать сколько было кошек. Если вариантов
несколько, необходимо указать их общее число и перечислить все эти
варианты.
Входной файл содержит единственное целое число М (2<=М<=2*10^9)-
количество мышек
А в выходном файле первая строка содержит количество
возможных решений, во второй строке через пробел N чисел, в порядке возростания, каждое из которых равно возможному числу кошек, иначе слово NO

Вот решение:

Var m:longint;
   i,s,n:integer;
    a: array [1..10000] of integer;
  begin
assign(input, 'input.txt') ; reset (input);
 assign(output, 'output.txt'); rewrite (output);
  readln(m);
  s:=0;
  n:=0;
  if m=2 then
  begin
   writeln('1');
   writeln('1');
    end else
    begin
    for i:=1 to (m div 2) do
    if (m mod i=0) and (i< (m div 2)) then
    begin
    s:=s+1;
    a[i]:=i;
    end;
    end;
     begin
       for i:=1 to s do
       if a[i]<>0 then n:=n+1;
     end;
     if n>0 then writeln(n);
     begin
       for i:=1 to s do
       if a[i]<>0 then write(a[i],' ');
     end;
     end.

[ubun]

Оказывается и при M<100000 не работает. Почему?

[ubun]

Извиняюсь знак неправильно написал
правильно так M>1000000.
Так почемуже не работает?

[NewLamer&Programer]

число слишком большое для типа integer, юзай long int

[ubun]

пробовал но все равно не работае В fp выдает сообщение об ошибке 201 (я не знаю что за ошибка)

[New man]

юзай longword
кстати для счетчиков тоже

и вот это

    a[i]:=i;

ты зря используешь.
Рекомендую завести еще один счетчик и инкрементировать его при выполнение условия в цикле