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

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