Что-то не так

[Radiofuck]

[Pascal]
Найти натуральное число от 1 до 10000 с максимальной суммой делителей.
1.Преподаватель сказала что-то не так,помогите. 2.Как вывести все его делители на экран.

var i,j,s1,summ,ind:integer;
begin
summ:=0;
ind:=0;
for i:=1 to 10000 do
begin
s1:=0;
      for j:=1 to i do
          if i mod j = 0 then s1:=s1+j;
      if s1>summ then
         begin
          summ:=s1;
          ind:=i;
         end;
end;
writeln(ind, ' ', summ);
readln;
end.

[Сильванович Михаил]

Если брать по твоему коду, то следующие строки
выведут все делители (также как ты искал их):

for i:=1 to ind do
if (ind mod i) = 0 then write(i,' ');

[AVer]

Вот рабочий вариант:

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.