сумма чисел двухзначного числа равна 10,если поменять местами его цифры ,то получится число большее данного на 36.Найдите это число

Почему не работает программа по нахождению полиндрома через массив?? Не понимаю?? 

const
n=5;
var
a: array[1..n] of char;
i,c: integer;
begin

for i:=1 to n do
read (a[i]) ;
readln;

c:=0;
for i:=1 to n div 2 do
if a[i]<>a[n-1-i] then c:=1;
if c=0 then writeln('polindrom')
else writeln('no');
readln;

Эссе на тему представленную в стихах Н.А.Некрасова

"порвалась цепь великая,

порвалась - рассочилася:

одним концом по барину,

другим по мужику"