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

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