Program Balik Kalimat perkarakter

           hari ini saya hanya punya postingan ringan tentang program pascal.. yaitu program pembalik kata atau kalimat perkarakternya tanpa merubah posisi awalnya.. karena pada tutorial - tutorial pascal yang ada dan pernah saya search d'google.. kebanyakan outputnya yaitu mengubah susunan karakter sekaligus posisinya juga..
nah, kali ini saya membuatnya sedikit berubah.. hee ..he..

ok langsung saja..

uses crt; {}
type
   stack = record
     top : 0..100;
     data: array[1..100] of char;
   end;


var stack1 : stack;
    isi : string[100];
    i   : integer;

    procedure inisialisasi(var s : stack);
    begin
         s.top := 0;
         end;

    function isEmpty(var s : stack) : boolean;
    begin
         isEmpty := s.top = 0;
    end;

    procedure push(var s : stack; x:char);
    begin
         s.top := s.top + 1;
         s.data[s.top] := x;
    end;

    procedure pop(var s : stack; var x:char);
    begin
       if not isempty(stack1) then begin
         x := s.data[s.top];
         s.top := s.top-1;
       end;
    end;

    var
        b : boolean;
    begin
         clrscr;  {}

         i := 0;
         b := false;
         write('Input kalimat yang akan dibalik perkarakter : ');readln(isi);
         writeln;
         write('Kalimat tersebut setelah di balik perkarakter
menjadi : ');
         isi := isi + ' ';
         repeat
            inc( i);
            if (b=false) then  inisialisasi(stack1);
            push(stack1,isi[i]);
            b := true;
            if isi[i] = ' ' then begin
              b := false;
              repeat
                pop(stack1,isi[i]);
                write(isi[i]);
              until isEmpty(stack1) = true;
            end;
         until i >= length(isi);

    readln;
end.

demikan sedikit dari saya tuk hari ini.. semoga bermanfaat..  :)