What is the wrong?

var
a, b, i, c, p, o, m, j, jj, posl, sum, st: integer;

begin
write('Enter a n b: ');
readln(a, b);//100 200

for i := a to b do
begin
c := i;// например: 153
m := i;
p := 0;
st := 1;
sum := 0;
while c <> 0 do
begin
o := c mod 10;
c := c div 10;
p := p + 1; // считает кол-во цифр
end;

for j := 1 to p do
begin// от 1 до 3((каждую) цифру числа берем)
posl := m mod 10; //3,5,1

for jj := 1 to p do
begin// от 1 до 3(число взятое (3,5,1) возводим в степень в кол-во цифр числа i )

st := st * posl; // возводим в степень (число 5) st=5*1 st= 5*5 st=5*25 sum=125
end;

sum := sum + st; // //плюсюем (к сумме) возведенное на код-во цифр число
m := m div 10;// делаем новое число (15)

end;

if sum = i then
writeln(i);
end;
end.