Максимально простая реализация:

var

i, x : integer;

begin

readln(x);

i := 1;

while i <= x do

   begin

   if x mod i = 0 then

       write(i, ' ');

   i := i + 1;

   end;

end.