Program Stack Part 3 (Program Stack Membalik Kata)

20 : begin
clrscr;
awalan(t);
gotoxy(20,4); writeln(' Program Stack Membalik Kata');
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
begin
if (kalimat[i]= ' ') then
begin
for k:=(i-1) downto l do
word:=word+kalimat[k];
word:=word+kalimat[i];
end;
l:=length(word);
if i=length(kalimat) then
begin
for i:=length(kalimat) downto l do
word:=word+kalimat[i];
end;
end;
for i := 1 to (length(kalimat) + 1) do
push1(t, word [i]);
(*mempush word/kata ke dalam tumpukan*)
for i := 1 to (length(kalimat) + 1) do
write (pop1 (t) );
(*mempop isi tumpukan sehingga terlihat word/kata yang terbalik*)
gotoxy(15,17);writeln('Ingin Mengulang Lagi?');
gotoxy(15,19);write('Tekan y Untuk Ya atau Enter Untuk Tidak');
gotoxy(1,21);write('Masukkan pilihan anda : ');
read(pil2);
case  pil2 of
'y': goto awal;
else goto akhir
end;
end;