Program Stack Part 4 (Program Stack Membalik Huruf)

30 : begin
clrscr;
awalan(t);
gotoxy(20,4);writeln(' Program Stack Membalik Huruf');
gotoxy(20,5);writeln('******************************');
writeln;
gotoxy(15,8);write('Ketik Kalimat  : '); readln(kalimat);
(*kalimat yang akan dibalik*)
writeln;
gotoxy(20,12);writeln('- Setelah operasi push dan pop -');
gotoxy(15,14);
for i:= 1 to length(kalimat) do (*mempush kalimat ke dalam tumpukan*)
push1(t, kalimat[i]);
for i:= 1 to length(kalimat) do (*mempop isi tumpukan sehingga terlihat kelimat yang terbalik*)
write(pop1(t));
gotoxy(15,16);writeln('Ingin Kembali Ke Menu?');
gotoxy(15,18);write('Tekan y Untuk Ya atau Enter Untuk Tidak');
gotoxy(1,20);write('Masukkan pilihan anda : ');
read(pil2);
case  pil2 of
'y': goto awal;
else goto akhir
end;
end;