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

а что ввести?

заданное слово

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