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

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


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