cara membuat tampilan menu pada pascal

Masukkan code ini ke dalam notepad
setelah itu simpan dengan format ".dat" contoh: "test.dat" (tanpa tanda petik)
jika sudah, buka simpanan tadi
selesai

CODE di bawah:

uses crt;

type pdata=^data;
data=record
npm,nama:string;
nilai:integer;
next:pdata;
end;

var pawal,pakhir:pdata;

Procedure add_link(npm,nama:string;nilai:integer);

var buff:pdata;

begin
new(buff);
buff^.npm:=npm;
buff^.nama:=nama;
buff^.nilai:=nilai;buff^.next:=nil;
if pawal=nil then
begin
pawal:=buff;
pakhir:=buff;
end
else
begin
pakhir^.next:=buff;
pakhir:=buff;
end;
end;

Procedure write_link;

var buff:pdata;

begin
clrscr;
new(buff);
buff:=pawal;
if buff = nil then
begin
writeln(‘Data kosong..silahkan isi dahulu..’);
end;
if buff <> nil then
begin
writeln(‘Data-data yang telah Anda input : ‘);
writeln;
end;
while buff<>nil do
begin
writeln(‘NPM : ‘,buff^.npm);
writeln(‘Nama : ‘,buff^.nama);
writeln(‘Nilai : ‘,buff^.nilai);
buff:=buff^.next;
end;writeln;
write(‘Tekan ENTER untuk kembali ke MENU UTAMA’);
readln;
end;

Procedure delete_link;

var hapus:pdata;

begin
clrscr;
writeln(‘Data pertama akan dihapus..’);
write(‘Tekan [Enter] untuk konfirmasi’);writeln;
new(hapus);
hapus := pawal;
pawal := hapus^.next;
dispose(hapus);
readkey;
write(‘Data pertama telah dihapus’);
readkey;
write_link;
end;

var nilai,jum,i,Pil:integer;
npm,nama:string;

Begin
Repeat
clrscr;
writeln(‘*** MENU UTAMA ***’);writeln;
Writeln(‘1. Input Data’);
Writeln(‘2. Lihat Data’);
Writeln(‘3. Hapus Data Pertama’);
Writeln(‘4. Keluar’);writeln;
Write(‘Pilihan : ‘);Readln(Pil);writeln;

Case pil of
1 : Begin
clrscr;
write(‘Jumlah data : ‘);
readln(jum);writeln;
for i:=1 to jum do
begin
write(‘NPM : ‘);readln(npm);
write(‘Nama : ‘);readln(nama);
write(‘Nilai : ‘);readln(nilai);
add_link(npm,nama,nilai);
end;
end;
2 : write_link;
3 : delete_link;
end;
until pil>= 4

end.