Balik Kata

Masih dengan materi Operasi String, kali ini saya akan berbagi mengenai membalikkan urutan huruf dari sebuah kata atau kalimat. Misalnya saja dari kata "lupa" menjadi "apul". Nah, codingan saya ini dibuat dengan logika saya.

Apa kalian punya logika yang lebih ringkas? Kalau ada, ayo kita berbagi :)

uses crt;

var a, b, c : string;
    k: integer;

begin
clrscr;
writeln('Membalikkan kata');
writeln('----------------');
writeln;
write('Masukkan kata atau kalimat : ');
readln(a);
for k := length(a) downto 1 do
    begin
    b := copy(a,k,1);
    c := c+b;
    end;
GoToXY(5,6); writeln('Hasilnya adalah ', c);
readln;
end.