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

[mexx1337]

Помогите исправить мою прогу ,чтобы корректно выводились все дружественные числа от 1 до n...

program a30z2;
procedure sum(n:integer;var b:integer);
var i:integer;
begin
b:=0;
for i:=1 to n div 2 do
if n mod i =0 then inc(b,i);
end;
procedure proverka(a,b:integer;var c:integer);
var h,z:integer;
begin
sum(a,h);
sum(b,z);
if (h=b) and (z=a) then c:=1 else c:=0;
end;

var i,j,s,n:integer;
begin
writeln('n=');readln(n);
for i:=1 to n do
for j:=i+1 to n do begin
proverka(i,j,s);
if (s=1) then writeln(i,'  ',j);
end;
readln;
end.

[mexx1337]

up up up
срочно нужна помощь