Помогите дописать програмку=))

Question

Написала программу нахождения делителей числа n и их количества 
Program Z4; {Нахождение делителей числа n и их количества} 
Var s,m,n,i,k:integer; 
Begin 
 Writeln('ВВедите n='); 
 Readln(n); 
 m:=n div 2; 
 Writeln('Делители: 1, '); 
 k:=2; 
 For i:=2 to m do 
 If n mod i=0 
 Then Begin 
 Write (i,', '); 
 k:=k+1; 
 End; 
 Writeln (n); 
 Writeln('k=',k); 
End.

Надо сделать так чтобы вычисленные делители выводились по 10 штук в каждой строке ( Нужно как-то дополнить программку)

Юрий Чудаев · Accepted Answer

после k:=k+1; вставить 
if ((k-2) mod 10 = 0) then writeln;

Анна · Answer

Write (i,', '); 
if k mod 10 = 0 then writeln;{добавлено} 
k:=k+1;