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

Question

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

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;

Comments

Можешь написать само задание?

---

Написать программу для вычисления полиндрома. пример 12321-это полиндром

---

а обьязательно через массив чаров?

Answer 1

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.