Program Palindrom

Program palindrom;
uses crt;
var
kt,bl:string;
i:integer;

begin
clrscr;

        write('Input kata: '); readln(kt);
        for i:= length(kt) downto 1 do
        bl:=bl+kt[i];
        writeln('Dibalik menjadi: ',bl);
        if bl=kt then write('Kata ini termasuk palindrom')
        else write('Kata ini bukan palindrom');
readln;
end.