8класс, информатика, паскаль, для заданного числа (18) вывести его делители ,

Var i, x: integer;
begin
   x := 18;
   for i:=1 to x do
      if x mod i = 0 then
         writeln(i);
end.