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

Var s : string;

i, k : integer;

begin

Readln (s);

k:=0;

for I : = 1 to Length (s) div 2 do

if s[i] = s[Length (s) - k] then k:=k+1;

if k = Length (s) div 2 then Write ('Полиндром') else Write ('Не полиндром'); Readln

end.