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

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.----Это программа на Паскале для поиска делителей для любого числа задаваемого пользователем.