Найти все числа Армстронга в диапазоне от а до b (процедура)

function PP1(n: integer):integer;  //находит сумму цифр входящего числа,возведенных в степень,равную 3
var k,l,sum,nn: integer;
 
begin
sum:=0;
while n>0 do   //вытаскиваем в цикле цифры и считаем сумму....
  begin
l:=n mod 10;
sum:=sum+round(power(l,3));
n:=n div 10;
  end;
 PP1:=sum;
end;
 
 
function PP(n: integer):integer;  //находит сумму цифр входящего числа,возведенных в степень,равную количеству цифр в числе
var k,l,sum,nn: integer;
 
begin
 
k:=0; nn:=n;
while nn>0 do   //ищем количество цифр в числе
begin l:=nn mod 10;k:=k+1;nn:=nn div 10;end;
 
sum:=0;
while n>0 do   //вытаскиваем в цикле цифры и считаем сумму....
  begin
l:=n mod 10;
sum:=sum+round(power(l,k));
n:=n div 10;
  end;
 PP:=sum;
end;
 
 
 
 
var i,a,b: integer;
 
begin
 
writeln('Введите a,b');
readln(a,b);
 for i:=a to b do
 if (i=PP(i))then
 begin
    writeln(i, ';  сумма кубов цифр числа  ',pp1(i));
 
   end;
writeln;
 
end.

procedure PP(n: integer; var sum:integer);  //находит сумму цифр входящего числа,
                                            //возведенных в степень,равную количеству цифр в числе
var k,l,nn: integer;
begin
k:=0;
nn:=n;
while nn>0 do   //ищем количество цифр в числе
 begin
  l:=nn mod 10;
  k:=k+1;
  nn:=nn div 10;
 end;
sum:=0;
while n>0 do   //вытаскиваем в цикле цифры и считаем сумму....
 begin
  l:=n mod 10;
  sum:=sum+round(power(l,k));
  n:=n div 10;
 end;
end;
 
var i,a,b,sum: integer;
begin
writeln('Введите a,b');
readln(a,b);
for i:=a to b do
 begin
  PP(i,sum);
  if (i=sum)then writeln(i);//почему кубы? а не 3х значные, например 5,1634,54748?
 end;
end.