Pascal/Turbo Pascal - AYUDA!!! subprograma - verificar si dos números son amigos

Uses crt;

var

    n1,n2,sum1,sum2 :Integer;

Function suma(var N : Integer; var S : Integer):integer;

var

  I : Integer;

begin

  For i:= 2 To N div 2 do

    If (N Mod i) = 0 Then

      S := S + i;

suma:=s;

End;

Begin

  sum1:=1;

  sum2:=1;

  Writeln('Introduzca el primer número: ');

  readln(n1);

  Writeln('Introduzcaa el segundo número: ');

  readln(N2);

  sum1 := suma(n1, sum1);

  sum2 := suma(n2, sum2);

  If ((sum1 = n2) And (sum2 = n1)) Then

    Writeln(N1,' y ',n2,' son números amigos')

  Else

    Writeln(N1,' y ',n2,' NO son números amigos');

  readln;

End.