Найти натуральное число от 1 до 10000 с максимальной суммой делителей — Pascal(Паскаль)

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.