Ввести слово. Определить является ли оно палиндромом. (Используя div)

Pascal Turbo.

Var s:string; l, i, k:integer;

begin

readln (s);

l:=length (s);

k:=0;

for i:=1 to l div 2 do

if s[i]=s[l-i+1] then k:=k+1;

if k=l div 2 then writeln (s,' - палиндром')

else writeln (s,' - не палиндром');

end.

Пример:

kazak

kazak - палиндром