Произведение составных делителей числа

[Radmir. v]

Помогите найти ошибку в коде....

var
number, delit, temp, pr: integer;
flag: BOOLEAN;
begin
readln(number);
writeln(' делители числа:  ');
for delit:=2 to number div 2 do
   if number mod delit=0 then begin
                               flag:= true;
                               temp:=2;
                               while flag and (temp<=delit div 2) do
                                        if delit mod temp=0 then flag:=false
                                                            else temp:=temp+1;
                              if not flag then pr:=pr*delit;
                              writeln (pr, '');
                             end;
end.

В чем тут ошибка?