Найти палиндромы в массиве элементов, записать их в другой массив!

[Lodyr]

Взял с простой программы - проверки числа на палиндром.

program palindrom;
var n,k,m:integer;
begin
writeln('vvedite chislo'):
readln(n):
k:=n; m:=0;
while (n>0) do
begin
m:=m*10 + (n mod 10);
n:=n div 10;  
end;
if (m=k) then writeln('palindrom')
else writeln ('nepalindrom');
end.

А тут у нас массив, и очень бы хотелось все-таки написать вспомогательный алгоритм, по проверке чисел и записи их всех в отдельный массив палиндромов...
Пытался написать, но сам понимаю что ерунда...

procedure polindrom (var s:array[1..Nmax]of integer);
var 
palindr[1..Nmax] of integer;
i,k,m:integer;
begin
for i:=1 to Nmax do
begin
   read(s[i]);
   k:=s[i],m:=0;
while (n>0) do
begin
 m:=m*10+(s[i] mod 10);
 s[i]:=s[i] div 10;
end;
if (m=k) then palindr[i]:=s[i];
writeln (palindr[i]);
end;

Подскажите, как правильно записать вспомогательный алгоритм...

[Greblin]

Сделать функцию palindrom, которая будет возвращать true или false

function palindrom(n: integer): boolean;
var k,m:integer;
begin
k:=n; m:=0;
while (n>0) do
begin
m:=m*10 + (n mod 10);
n:=n div 10;  
end;
if (m=k) then palindrom := true
else palindrom := false;
end;

Ну а дальше, думаю, справитесь - для каждого элемента массива проверяете этой функцией