Нахождение произведения составных делителей числа

[Alexbmgn]

В чем проблема, кто может подсказать, вроде бы все должно работать верно. Что-то на поверхности, но я не могу этого уловить нивкакую ....
Алгоритм должен находить проиведение составных делителей числа. С ума уже схожу, что не так... Кто может пожалуйста покажите в чем проблема



procedure delit_pro(var m,pro:integer);
var delit,i,kol:integer;
flag:boolean;
begin
flag:=true;
delit:=2;

for i:=2 to m-1 do

if m mod i=0 then begin
kol:=kol+1;
while flag and (delit<=i div 2) do
if i mod delit=0 then
begin
flag:=false;
pro:=pro*i;
end
else
delit:=delit+1;

end;
if kol=0 then pro:=0;

end;

Прошу подправьте, я уже вымотался весь....

[Orakul89]

Слегка упростив ваш код:

procedure delit_pro(var m,pro:integer);
 var i,kol:integer;
 begin
 pro:=1;
 for i:=2 to (m div 2)+1 do
 if m mod i=0 then
  pro:=pro*i;
 pro:=pro*m;
 end;

[Alexbmgn]

хм, результат произведения составных делителей 8 выходит по этому алгоритму 64 хотя если не считая крайние значения числа, там лишь один составной делитель получается 4... Однако спасибо огромное за отзывчивость