Turbo Pascal Использование процедур и функций

[Dina 85]

Хотела бы спросить
есть условие задачи
найти натуральное число от 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.

когда я запускаю выводится на экране
9720 32760

И вот возникает вопрос(программу я не сама писала)это сообщение означает что число с максимальной суммой делителей 9720 и максимальное число делителей 32760.
или ПРОГРАММА РАБОТАЕТ НЕВЕРНО ИЛИ У МЕНЯ ПРООБЛЕМЫ В САМОЙ ПРОГРАММЕ

[Mad_Cat]

у вас

максимальная сумма

а не

максимальное число делителей

=32760.

[Sciv]

У Вас проблемы с пониманием задания: нужно найти ЧИСЛО и СУММУ его делителей.

На выходе программы: первое - число, второе - сумма делителей.

Программа, насколько я могу судить, бегло взглянув, работает правильно.