Вложенные циклы- найти натуральное число от 1 до 10000 с максимальной суммой делителей

Function MaxSum(I:Integer):Integer;
Var J,S:Integer;
Begin
S:=0;
For J:=1 to I Do
If I Mod J = 0 Then
S:=S+J;
MaxSum:=S;
End;
 
Var I,Max:Integer;
Begin
Max:=1;
For I:=2 to 10000 Do
If MaxSum(I) > MaxSum(Max) Then
Max:=I;
WriteLn(Max,' ',MaxSum(Max));
ReadLn;
End.

Function MaxSum(I:Integer):Integer;// пишем функцию
Var J,S:Integer; // переменные сумма и количество чисел
Begin
S:=0; // сумме присваиваем значение 0
For J:=1 to I Do //цикл с параметром
If I Mod J = 0 Then //соответственно делим на все числа цикла
S:=S+J; //считаем сумму
MaxSum:=S; //запоминаем
End;
 
Var I,Max:Integer;
Begin
Max:=1; //максимальным запоминаем первый элемент
For I:=2 to 10000 Do //проверяем другие
If MaxSum(I) > MaxSum(Max) Then //проверяем сумму каждого элемента с 1-м
Max:=I; //если больше - запоминаем
WriteLn(Max,' ',MaxSum(Max)); //выводим
ReadLn;
End.