Информатика

Трифилий

19 июня, 07:29

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

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;