Palindrom

Palindrom....
Ada yg tau apa itu palindrom...?
mungkin sebagian besar dari kita gtak banyak yg tau dengan kata tersebut. Palindrom adalah sebuah bahasa yg diartikan pembacaan kata yg apabila d baca dari depan bunyinya sama apabila d baca dari belakang.

Contoh kata Palindrom : apa, kodok, malam, dlll...

berikut contoh program palindrom dengan pascal.


program palindrom;
uses wincrt;
var
x: integer;
kata, kata1, kata2 : string[15];
i: integer;
ul: char;

begin
repeat
write('Masukan Sebuah Kata : '); readln(kata);
x:= length(kata);

for i:= 1 to x do
teks1:=kata1 + kata[i];
for i:=x downto 1 do
teks2:=kata2 + kata[i];

if kata1 = kata2 then
writeln('TERMASUK PALINDROM')
else
writeln('BUKAN PALINDROM');
write('MAU COBA LAGI? [Y/T]: '); readln(ul);
until upcase (ul)<>'Y';
readln;
end.

sekian dolo masih pusing nih....