Program qwerty;
var s:string; p,n,i:integer;
begin
write (`введите слово`);readln(s);
p:=0;
for i:=1 to n:=length(s) div 2
if s[i]=s[n-i+1] then p:=1;
if p=1 then write(`слово полиндром`) else
write(`не полиндром`);
readln;
end.
(не суди за ошибки :D)