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

Const n=5; var a: array[1… n] of char; i: integer; p: boolean; begin for i: =1 to n do read (a[i]); p: =true; for i: =1 to n div 2 do p: =p and (a[i]=a[n+1 — i]); writeln ('Polindrom: ', p); end.