Program Pascal Palindrom

Program Pascal Mengecek sebuah Kata Palindrom atau tidak.
Berikut Source cedenya:

uses crt;
var i,j,panjang :integer;
kata : string;
palin: boolean;
begin
clrscr;
writeln('Kata = ');readln(kata);
panjang:=length(kata);
j:=panjang;
palin:=true;
for i:=1 to (panjang div 2) do
begin
if kata[i]<>kata[j] then
begin
palin:=false;
end;
j:=j-1;
end;
if palin then
writeln('kata ' ,kata, ' adalah palindrom')
else
writeln('kata ' ,kata, ' adalah bukan palindrom');
readln;
end.