Дано натуральное число. Вывести на экран все его делители, меньшие, чем оно само, через запятую — Pascal(Паскаль)

uses crt;
var n,i:longint;
begin
clrscr;
write('n=');
readln(n);
writeln('Делители числа, меньшие его:');
for i:=2 to n div 2 do
if n mod i=0 then
 if i< n div 2 then write(i,',')
 else write(i);
readln
end.