дружественные числа Опции

[Rom1k]

два натуральных числа называют дружественными,если каждое из них равно сумме всех делителей другого, кроме самого этого числа.
найти все пары дружественных чисел,лежащих в диапазоне от 200 до 300

помогите пожалуйста.даже догадок нет(

[Rom1k]

uses crt;
var
   count,i,j,s : word;
begin
   count := 0;

   for i := 200 to 300  do begin
      s := 0;
      for j := 1 to i div 2 do begin
         if i mod j = 0 then begin
            writeln(j,' - delitel ',i);
            s := s + j;
         end;
         if s = i then begin
            writeln('Chislo ',i,' ravno summe svoih delitelei');
            readln;
            inc(count);
         end;
      end;
   end;
   readln
end.

ну вот,беру этот код. ищу от 200 до 300, а как именно найти эти пары дружественных чисел?