Free pascal. Написать программу детектирования слова-полиндрома

Var st: string; l,i: integer; b:boolean;begin readln(st); l:=length(st); b:=true; for i:=1 to l div 2 do  if st[i]<>st[l-i+1] then b:=false; if b then writeln('Слово - палиндром') else writeln('Слово - не палиндром');end.Пример:казакСлово - палиндром