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.