Palindrome[pascal]

est-ce que c'est correcte?

program az;
uses wincrt;
var a,i,o,e,j:integer; ch:string;
begin
readln(ch);

o:=length(ch) div 2+1;
e:=length(ch);
i:=1;
while (ch[i]=ch[e-i+1]) and (o>i)do
i:=i+1;

if o=i then writeln('le mot est palindrome')
else writeln('n''est pas palindromes');

end.