не выводит нужное

program program2;
var 
  a,b,c: integer;
begin
  WriteLn('Программа для нахождения всех делителей чисел');
  WriteLn('Введите от какого числа');
  Readln(a);
  WriteLn('Введите до какого числа');
  REadln(b); 
  while a<=b do
  begin
    writeLn (a,':');
    for c := a+1 to b-1 do
    begin
      If a mod b = 0 then
        Writeln(c,' ');
    end;
    a := a+1;
  end;
end.