Найти натуральное число от 1 до 10000 с максимальной суммой делителей

program   tmt;
var
     I, j, s, m, d: integer;
begin
m := 0;
d :=0;
for i:=1 to 10000 do
begin
s :=0;
         for j:=1 to i do
                    If i mod j = 0 then s := s+j;
                If s>m then
           begin
                    m:=s;
                    d:=I;
                 end;
end;
writeln (d, ‘ ‘ , m);
readln;
end.

program tmt;
var
  I, j, s, m, d: integer;
begin
  m := 0;
  d := 0;
  for i := 1 to 100 do
  begin
    s := 0;
    Write('Для числа ', i, ' делители: ');
    for j := 1 to i do
      if i mod j = 0 then begin
        s := s + j;
        Write(j, ' ');
      end;
    WriteLn(' сумма делителей = ', s);
    if s > m then
    begin
      m := s;
      d := i;
    end;
  end;
  WriteLn;
  writeln('Максимальная сумма делителей у числа ',d,', cумма делителй = ', m);
  readln;
end.