Pascal/Turbo Pascal - Programa amistad cuadrática

{Mira esto}

program amistadcuadratica;

 uses

   crt;

  var

    n1, n2, numero1, numero2 : integer;

    sumas : string[10];

    resu1, resu2, eluno, eldos : integer;

  begin

     clrscr;

     write('   Entre Numero 1 : ');

     readln(n1);

     write('   Entre Numero 2 : ');

     readln(n2);

     numero1 := n1 * n1;

     numero2 := n2 * n2;

     resu1 := n1;

     resu2 := n2;

     str(numero1,sumas);

     n1 := ord(sumas[1]) - 48 + ord(sumas[2]) - 48 + ord(sumas[3]) - 48;

     if n1 = resu2 then

     eluno := n1;

     str(numero2,sumas);

     n2 := ord(sumas[1]) - 48 + ord(sumas[2]) - 48 + ord(sumas[3]) - 48;

     if n2 = resu1 then

     eldos := n2;

     writeln;

     if (eldos = resu1) and (eluno = resu2) then

     writeln(' Existe la amistad cuadratica  = ',eluno,'     ',eldos)

  else

     writeln(' No Existe la amistad cuadratica  = ',eluno,'     ',eldos);

     readkey;

   end.