Переделать код содержащий в себе цикл с параметром, в код с циклом с ПРЕДУСЛОВИЕМ (while do) - PascalABC.NET

Формулировка задачи:

Program Sum_Del;
Var N, I, Sum_Max, Sum, K, Ch : Integer;
Begin
Write('Введите число N: '); 
ReadLn(N);
Sum_Max := 1; 
Ch := 1; 
For I := 2 To N Do 
Begin
Sum := 0;
For K := 1 To I Div 2 + 1 Do
If I Mod K = 0 Then      
Sum := Sum + K;
Sum := Sum + I;
If Sum > Sum_Max Then 
Begin 
Sum_Max := Sum;
Ch := I; 
End;
End;
WriteLn('Максимальную сумму делителей имеет число ',Ch);
End.

Если что, то вот сама задача: В интервале [2;n] найти натуральное число с максимальной суммой делителей.

Решение задачи: «Переделать код содержащий в себе цикл с параметром, в код с циклом с ПРЕДУСЛОВИЕМ (while do)»

textual
                            Листинг программы 
                        

                            program Sum_Del;
var N, I, Sum_Max, Sum, K, Ch: Integer;
begin
  Write('Введите число N: '); 
  ReadLn(N);
  Sum_Max := 1; 
  Ch := 1;
  I := 2;
  while (I <= N) do begin
    Sum := 0;
    K := 1;
    while (K <= I div 2 + 1) do begin
      if I Mod K = 0 Then      
        Sum := Sum + K;
      inc(K);
    end;
    Sum := Sum + I;
    if Sum > Sum_Max Then begin
      Sum_Max := Sum;
      Ch := I; 
    end;
    inc(I);
  end;
  WriteLn('Максимальную сумму делителей имеет число ', Ch);
end.
                        