balik kata

program balik_kata;

uses crt;

var n,i,x: integer;
var balik: array [1..50] of char;
var kata: string[50];

begin
   clrscr;
   writeln('Program Pembalik Kata');
   writeln;
   writeln('silahkan masukkan kata:');
   readln(kata);
   n := length(kata);
   x :=1;

   for i:=n downto 1 do
   begin
      balik[x] := kata[i];
      x := x+1;
   end;

   writeln;
   writeln('kata setelah dibalik: ');
   for i:=1 to x do
   begin
      write(balik[i]);
   end;
   readln;
end.