Составьте программу, которая выводит все делители натурального числа n (в паскале)

Var n,i:integer;
begin
write('n = ');
readln(n);
writeln('Делители:');
for i:=1 to n div 2 do
 if n mod i = 0 then write(i,' ');
writeln(n);
end.

Пример:
n = 24
Делители:
1 2 3 4 6 8 12 24