Вводится число n отыскать все его делители ( задачка по инфарматике)

var i,n: integer;
begin
//вводим начальное число
Write(Введите число n: ); Readln(n);
Write(Делителями числа , n, являются: );
//перечисляем все вероятные числа в интервале от 1 до n
For i:=1 to n do
begin
//если при разделении на какое-или из их остаток 0, то это делитель =gt; вывод
if (n mod i = 0) then write (i, );
end;
end.