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

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.