Números amigos

Programa en Pseudocódigo para resolver el siguiente problema:
Dado dos números enteros positivos r y a, se desea saber si estos son amigos.

Proceso numeros_amigos
    Repetir
        leer r,a
    Hasta Que r>0 & r = trunc(r)
    sr<-0
    sa<-0
    Para i<-1 Hasta r-1 Con Paso 1 Hacer
        Si (r mod i=0) Entonces
            sr<-sr+i
            Escribir "Ă",i
        FinSi
    FinPara
    Para i<-1 Hasta a-1 Con Paso 1 Hacer
        Si (a mod i=0) Entonces
            sa<-sa+i
            Escribir " + ",i
        FinSi
    FinPara
  
    Escribir sr," ",sa
    Si (r=sa & a=sr) Entonces
        Escribir "Si son amigos"
    Sino
        Escribir "No son amigos"
    FinSi
FinProceso