Составить программу в паскале для определения является ли заданное слово палиндромом

Var 
x:string;
i,w:integer;
begin
w:=0;
readln(x);
for i:=1 to length(x) div 2 do
if x[i]<>x[length(x)-i+1] then
w:=w+1;
if w=0 then writeln('Палиндром') else
writeln('Не палиндром');
end.