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

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
    writeln(i);
 
      
writeln;
 
end.

procedure PP(n: integer; var res: 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;
  res := sum;
end;
 
var
  q, i, a, b: integer;
 
begin
  writeln('Введите a,b');
  readln(a, b);
  for i := a to b do
  begin
    pp(i, q);
    if i = q then
      writeln(i);
  end;
  writeln;
end.