Program Stack Part 2 (Tampilan Menu)

Dibagian kedua ini saya akan berikan codingan untuk membuat tampilan menunya, berikut ini lah codingan program tersebut :

begin
awal: clrscr;
(* Author *)
gotoxy(20,4);  writeln(' --------------------------------------');
gotoxy(20,5);  writeln('|   Tugas Struktur Organisasi Data 2               |');
gotoxy(20,6);  writeln('|                                                                     |');
gotoxy(20,7);  writeln('|              Kelompok 1                                    |');
gotoxy(20,8);  writeln('|                                                                     |');
gotoxy(20,9);  writeln('| 1. Komang Anom Budi Utama  (13110912) |');
gotoxy(20,10);writeln('| 2. Gunarwin Ardi Rukmana       (13110046) |');
gotoxy(20,11);writeln('| 3. Jeanny Fatma M                   (13110733) |');
gotoxy(20,12);writeln('| 4. Yunnisa Mutiara Sari             (18110792) |');
gotoxy(20,13);writeln('|                                                                     |');
gotoxy(20,14);writeln('|                               2KA01  |');
gotoxy(20,15); writeln(' --------------------------------------');
(* Pilihan Menu *)
gotoxy(24,20);writeln('****** Pilih Program Stack ******');
gotoxy(22,22);writeln('1. Program Membalik Kata');
gotoxy(22,23);writeln('2. Program Membalik Huruf');
gotoxy(22,24);writeln('3. Program Konversi Infix ke Postfix');
gotoxy(22,25);writeln('4. Exit');writeln;
gotoxy(22,27);write  ('Masukan Pilihan Kamu : ');readln(pil);writeln;
case pil of
1 : goto 20;
2 : goto 30;
3 : goto 40;
4 : goto akhir;
else
write('Maaf data yang anda masukkan salah!');
readln;
goto awal
end;