[Информатика] Палиндромы

Данная программа определяет является ли слово палиндромом. То есть слово должно читаться справо и слева одинково .
uses crt;
var s, st: string;
i,j,k: integer;
begin
writeln('s=');
readln(s);
i:=1; j:=length(s);
while i<j do
begin
if s[i]=s[j] then
inc(k);
i:=i+1;
j:=j-1;
end;
if k=length(s) div 2
then writeln ('Палиндром')
else writeln ('Не палиндром');
end.