Найдите все совершенные числа от 1 до 1000 и выведите их на экран - Turbo Pascal

Формулировка задачи:

Код к задаче: «Найдите все совершенные числа от 1 до 1000 и выведите их на экран - Turbo Pascal»

For i:=1 to 1000 do
Begin
  s:=0;
  For j:=1 to i div 2 do
   if i mod j = 0 then s:=s+j;
  if s=i then writeln(s);
End.