найдите все делители миллиона Нужен метод

Program n_1;
var x, y, z: integer;
begin
x := 1;
z := 0;
writeln('Введите число, для которого нужно отыскать делители(в данном случае ввести необходимо 1000000): ');
readln(y);
while x lt;= y do
begin
z := y mod x;
if z = 0 then
begin
writeln('Делитель: ', x);
x := x + 1;
end
else
x := x + 1;
end;
end.

----
Это программка на Паскале для поиска делителей для хоть какого числа задаваемого пользователем.