Разложение числа на простые делители

[PROFI_I]

Я раскладываю таким образом, но у меня она не работает правельно, помогите плз...
var
k,n,i,m:integer;
f:boolean;
begin
n:=202;
m:=trunc(sqrt(n));
f:=true; k:=1;
for i:=2 to m do
if n mod i =0 then begin
k:=k+ (n mod i);
end;
writeln(k);
end.

[Deight]

Во первых зачем в коде f

[Deight]

По моему этот код выдаст сумму чисел которые нацело делят 202. Только если написать

k:=k+i;