Pembalik Kata Dengan Array

Sekedar Berbagi tentang program pembalik kata di Pascal atau mengarjakan pascal dari Lazarus !!
:D

program pembalik_kata;
uses crt;
var
  x : array [1..100] of char;
  i, j, n : integer;

begin
clscr;
  write('Masukkan Jumlah Karakter : ');
  readln(n);
  writeln('================================');
  i:=0;
  j:=0;
  while n > i do
  begin
    i:= i + 1;
    write('Masukkan Karakter ke ',i,' : ');
    readln(x[i]);
  end;
  writeln;
  writeln('=====*** Hasil Keluaran ***=====');
  writeln;
  writeln('Kumpulan Karakter');
  writeln;
  while n > j do
  begin
    j:= j + 1;
    write(x[j]);
  end;
  WriteLn;
  writeln;
  writeln('Hasil Pembalikan');
  writeln;
  for i:=n downto 1 do
  begin
  write(x[i]);
  end;
  readln;
end.

Hasilnya Kira" kayak gini !!!
he.. he..,

Semoga Bermanfaat !!!