Написать программу которая выводит на экран все делители введённого числа — Pascal(Паскаль)

Program zaochka4;
Var 
  a,i: integer;
Begin
  Write('a=');
  Readln(a);
  FOR i := 1 TO a DIV 2
  DO
    IF a MOD i = 0
    THEN
      WRITE(i, ' ');
  WRITELN(a);
READLN 
End.