счастливые числа и полиндромы помогите!!!

[starlet]

Помогите пожалуйста испавить задачу!..у меня вообще бред получается(((((
Условие : на промежутке [a,b] найти все счастливые числа.отдельно вывести те,которые являются полиндромами.Все оформить через подпрограммы (PASCAL)


Unit HapPol;

INTERFACE
Type
mas=array [1..100] of longint;
Var
h,p:mas;
Function HAPPY (zn:byte;i:longint):boolean;
Function POLINDROM(i:longint;zn:byte):boolea n;
Procedure ALL(a,b:longint; var h,p:mas; var j,k:byte);
Procedure Print_Happy(h:mas;j:byte);
Procedure Print_Polindrom ( p:mas; k:byte);

IMPLEMENTATION


{1} Function HAPPY (zn:byte;i:longint):boolean;
Var
x:longint;
j,zn2,sl,sp:byte;
Begin
x:=i;
j:=zn;
zn2:=zn div 2;
while x<>0 do
begin
h[j]:=x mod 10;
x:=x div 10;
j:=j-1;
end;
for j:=1 to zn2 do
sl:=sl+h[j];
for j:=zn2 to zn do
sp:=sp+h[j];
Happy:=(sl=sp);
End;

{2} Function POLINDROM(i:longint;zn:byte):boolea n;
Var
x:longint;
j,zn2,l,r:byte;
Begin
x:=i;
j:=zn;
zn2:=zn div 2;
while x<>0 do
begin
p[j]:=x mod 10;
x:=x div 10;
j:=j-1;
end;
for l:=1 to zn2 do
for r:=zn downto zn2 do
polindrom:=(p[l]=p[r]);
End;



{3} Procedure ALL(a,b:longint; var h,p:mas; var j,k:byte);
Var
i:longint;
zn:byte;

Begin
j:=0;
k:=0;
for i:=a to b do
begin
if Happy(zn,i)=true then
begin
inc(j); {if happy}
h[j]:=i;
end;

if Polindrom(zn,i)=true then
begin
inc(k); {if polndom}
p[k]:=i;
end;
end;
End;


{4}Procedure Print_Happy(h:mas;j:byte);
var
i:byte;
Begin
if j=0 then writeln('no happy numbers') else
begin
writeln(j,'happy numbers:');
for i:=1 to j do
write(h[i]:10);
end;
End;

{5} Procedure Print_Polindrom ( p:mas; k:byte) ;
var
i:byte;
Begin
if k=0 then writeln('no polindrom') else
begin
writeln(k,'polindroms:')
for i:=1 to k do
write(p[i]:10);
end;
End;

End.

[Plague]

проверка на полиндром

function polindrom(x:longint):boolean;
var s,a:longint;  
begin
  a:=x;
  s:=0;
  repeat
    s:=s*10+a mod 10;
    a:=a div 10;
  until a=0;
  polindrom:=s=x;
end;

[Stilet]

Уже обсуждалось