Помогите в решении задачи

[Plague]

Позволил себе подредактировать Ваш код. Спсб за интересную задачу)

  i:=2; k:=n;
  while i*i<=k do 
    begin
      if k mod i = 0 then
        begin  
          SetLength(B,Length(B)+1);
          B[Length(B)-1].Number:=i;
          B[Length(B)-1].Count:=1;
          k:=k div i;   
          while k mod i = 0 do
            begin
              Inc(B[Length(B)-1].Count);
              k:=k div i;
            end;      
        end;    
    if i mod 2=0 then Inc(i) else Inc(i,2);
    //  inc(i);
    end;
  if k<>1 then
    begin
      SetLength(B,Length(B)+1);
      B[Length(B)-1].Number:=k;
      B[Length(B)-1].Count:=1;
    end;

  
  kMax:=n;