Turbo Pascal Window: Program Membalikkan Kata

Program Membalikkan;
uses wincrt;
var
   i,panjang:integer;
   kata,balik:string;
begin
     clrscr;
     writeln('Balik Kata');
     writeln('==========');
     writeln('Masukkan Sebuah Kata');readln(kata);
     panjang:=length(kata);
     balik:=' ';

     for i:=panjang downto i do
     balik:=balik+kata[i];
     writeln('Hasil Pembalikannya :',balik);
     readln;
end.