Составьте программу получения в порядке убывания всех делителей данного числа — Pascal(Паскаль)

uses crt;
var
n,i:integer;
begin
writeln('vvedite chislo');
readln(n);
writeln('deliteli');
for i:=n-1 downto 1 do begin
if (n mod i) = 0 then
writeln(i);
end;
readln;
end.