Почему не работает программа по нахождению полиндрома через массив? ? не понимаю? ? 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;

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.