Program Polindrom Bahasa Pascal

Hai, hari ini akan saya posting contoh bahasa pemrograman Pascal mengenai Program polindrom atau pembalik kata berdasarkan inputan kata...
Pada program kali ini kita akan membuat sebuah program untuk menentukan apakah kata tersebut termasuk polindrom, selamat menikmati ya
:D

 Program Polindrom;
Uses crt;
Var kt,hkt,hkt1:string;
    i,j:integer;
Begin
clrscr;
  Writeln('Program Polindrom');
  Writeln('=================');
  Writeln;
  Write('Masukkan Kata: ');Readln(kt);
  Writeln;
  j:=length(kt);
  hkt:='';
  For i:= 1 to j do
    hkt:=hkt+kt[i];
  For i:= j downto 1 do
    hkt1:=hkt1+kt[i];
  Writeln('Asal: ',hkt,'       Dibalik: ',hkt1);
  Writeln;
  if (hkt=hkt1) then
    Writeln('Kata Tersebut Termasuk Polindrom!')
  else
    Writeln('Kata Tersebut Tidak Termasuk Polindrom!'); 
readln;
End.

kemudian Run, tekan Ctrl+F9
input kata kedalam program...
dan hasilnya :

jika terjadi kesalahan dalam program, mohon di komen agar bisa kami perbaiki, oce kawan :D 

Silahkan dikembangkan lebih jauh lagi, karna kami hanya menyediakan program-program sederhana untuk dikembangkan oleh para pembaca sekalian...

mohon maaf apabila ada salah-salah kata dari kami ya!!

Sudah Baca Yang Ini..?