Посчитать все совершенные числа от 1 до 10000 — Pascal(Паскаль)

uses crt;
var i,k,j,s:integer;
begin
clrscr;
writeln('Совершенные числа на интервале 1-10000:');
k:=0;
for i:=1 to 10000 do
 begin
  s:=0;
  for j:=1 to i-1 do
  if i mod j=0 then s:=s+j;
  if s=i then
   begin
    write(i,' ');
    k:=k+1;
   end;
 end;
writeln;
write('Всего=',k);
readln
end.