Program Pembalik Kata dengan Pascal

Wah...beberapa hari yang lalu saya lagi praktikum pascal untuk membuat program pembalik kata dengan pascal dari pada scriptnya berkarat di laptop saya, mending di bagiin aja deh ke sahabat semuanya, bener ga???

Program ini menggunakan implementasi dari fungsi length yang ada di dalam pascal.

Program Pembalik Kata;

uses wincrt ;
var
s : string;
i,n : integer;
begin
write ('Masukkan Kata : ') ; read(s);
n := length(s);
     for i := n downto 1 do
     begin
     write(s[i]);
     end;
end.

Ini hasil program setelah di running